Дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите сумму всех чётных чисел, кратных 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. дана не пустая последовательность целых чисел, оканчивающаяся нулём. найдите максимальное число этой последовательности.
program Z1;
var
ch, s: integer;
begin
writeln('введите последовательность натуральных чисел, оканчивающихся 0');
readln(ch);
s := 0;
while ch <> 0 do
begin
if odd(ch) and (ch mod 10 = 3) then
s := s + 1;
readln(ch);
end;
writeln('s = ', s);
end.
*****************************************************
var
max, ch: integer;
begin
writeln(' введите последовательность натуральных чисел, оканчивающихся 0');
readln(ch);
max := ch;
while ch <> 0 do
begin
if (ch > max) and (ch <> 0) then
max := ch;
readln(ch);
end;
writeln('max =', max);
end.