1) Напишите программу, которая в последовательности натуральных чисел определяет сумму четырехзначных чисел , кратных 6. Программа получает на вод натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел ...

1) Напишите программу, которая в последовательности натуральных чисел определяет сумму четырехзначных чисел , кратных 6. Программа получает на вод натуральные числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0(0- признак окончания ввода, не входит в последовательность). Программа должна вывести одно число: сумма четырехзначных чисел , кратных 6. 2) Напишите программу , которая в последовательности натуральных чисел определяет максимальное число, кратно 3 и оканчивающиеся на 3. программа получает на вход кол-во чисел в последовательности, а заем сами числа. В последовательности всегда имеется число, кратное 3 и оканчивающиеся на 3. Кол-во чисел не превышает 1000. Введенные числа не превышают 30 000. Программа должна вывести одно число- максимальное число, кратное 3 и оканчивающиеся на 3.
Гость
Ответ(ы) на вопрос:
Гость
1) Program n1; var a: integer; sum: real; begin readln(a); sum:=0; while a<>0 do begin if (a>999) and (a<10000) and (a mod 6=0) then sum:=sum+a; readln(a); end; writeln(sum); end. 2) Program n2; var a,max,i,n: integer; begin readln(n); max:=-30000; for i:=1 to n do begin readln(a); if (a>max) and(a mod 3=0) and (a mod 10=3) then max:=a; end; writeln(max); end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы