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

241

395

Посмотреть ответы 2

Ответы на вопрос:

kotizm

Информатика

4,4(57 оценок)

***первая *** 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

angelinasd2007

Информатика

4,8(98 оценок)

Ответ дается с предположением что речь идет об экселе копирование формул это тупа копирование формул(из ячейки в ячейку), есть только загвоздка со ссылками на ячейки, они могут по разному переноситься в зависимости от того абсолютная или относительная ссылка. сумм(5; 2; 13) = 5+2+13