Дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите сумму всех чётных чисел, кратных 3.

program z1;
var
ch,s: integer;
begin
writeln('введите последовательность натуральных чисел, оканчивающихся 0);
readln(ch);
s: =0;
while ch< > 0 do
begin
if not(odd(ch)) and (ch mod 3=0)then s: =s-ch:
readln (ch) ;
end;
writeln (' s='s) ;
end

2.дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите минимальное число этой последовательности, исключая последний ноль.

var
min ch: integer ;
begin
writeln (' введите последовательность натуральных чисел, оканчивающихся 0'; )
readln (ch)
min: =ch ;
while ch< > 0 do
begin
if (ch0)then min : =ch :
readln (ch) ;
end;
writeln ('min =', min) ;
end

.
1. дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите количество всех нечётных чисел, оканчивающихся цифрой 3.
2. дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите максимальное число этой последовательности.

​

kopiplay    2   17.12.2019 02:49    4