Question

Решите задачи и составьте к ним блок схемы, пожалуйста. Язык - PascalABC 1. Дана последовательность из N чисел. Вычислить сумму элементов, кратных 6 и оканчивающихся на 4. Предусмотреть вывод на печать "нет", если удовлетворяющие условию числа в последовательности отсутствуют. 2. Дана последовательность чисел, оканчивающихся на 0. Вычислить наибольший положительный элемент, кратных 3. Предусмотреть вывод на печать "нет", если удовлетворяющие условию числа в последовательности отсутствуют.

Answer 1

***Первая Задача***
var a:array [1..100]of integer;
n,i,fl,sum,len:integer;
s : string;
begin 
writeln('Введите n') ; 
readln(n); 
               for i:=1 to n do 
               readln(a[i]); 
sum:=0; 
fl:=0; 
                for i:=1 to n do 
                begin 
                str(a[i], s); 
                len:=length(S);   
                if ((a[i]mod 6=0)and(s[len]='4')) then   
                   begin   
                      sum:=sum+a[i];   
                      fl:=1;   
                   end; 
                end;
if (fl=1)then writeln('сумма=',sum);
if(fl=0) then writeln('нет');
end.
****Тестовый ввод ****
5
24
1
1
24
3
****
Вывод
сумма = 48
*****
вторая. Пометка !!! ввод нуля останавливает программу
(исходя из условия оканчивающихся на 0)
********
var i,max,fl: integer;
begin
i:=1;
max:=0;
fl:=0;
       while(i<>0) do
       begin
          readln(i);
          if((i mod 3=0)and(i>max)) then
              begin
              max:=i;
              fl:=1;
              end;
          end;
if (fl=1) then writeln('Максимальный =',max);
if (fl=0) then writeln('нет');
end.
****Тестовый ввод ****
3
4
9
8
6
0
****
Вывод
максимальный = 9

Answer 2

Давайте начнем с написания программ на PascalABC для решения каждой из задач, а затем создадим блок-схемы.

Задача 1: Сумма элементов, кратных 6 и оканчивающихся на 4.

program Task1;
var
  N, i, num, sum: integer;
begin
  write('Введите N: ');
  readln(N);

sum := 0;

for i := 1 to N do
  begin
    write('Введите число ', i, ': ');
    readln(num);

if (num mod 6 = 0) and (num mod 10 = 4) then
      sum := sum + num;
  end;

if sum <> 0 then
    writeln('Сумма элементов, кратных 6 и оканчивающихся на 4: ', sum)
  else
    writeln('нет');
end.

Задача 2: Наибольший положительный элемент, кратный 3.

program Task2;
var
  num, maxElement: integer;
begin
  maxElement := -1; // начальное значение, чтобы учесть случай отсутствия подходящих элементов

repeat
    write('Введите число (оканчивающееся на 0): ');
    readln(num);

if (num mod 10 = 0) and (num > 0) and (num mod 3 = 0) and (num > maxElement) then
      maxElement := num;

until num = 0;

if maxElement <> -1 then
    writeln('Наибольший положительный элемент, кратный 3: ', maxElement)
  else
    writeln('нет');
end.

Теперь давайте создадим блок-схемы для этих программ.

Блок-схема для Задачи 1:

\[ вставить блок-схему \]

Блок-схема для Задачи 2:

\[ вставить блок-схему \]

Пожалуйста, заметьте, что блок-схемы могут быть созданы с использованием различных инструментов, таких как draw.io, Lucidchart, Microsoft Visio и т.д. К сожалению, здесь нельзя вставить изображения или создавать графику.