Question

Дана не пустая последовательность целых чисел, оканчивающаяся нулём. Найдите сумму всех чётных чисел, кратных 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 (ch<min) and (ch<>0)then min :=ch :
readln (ch) ;
end;
writeln ('min =', min) ;
end

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

​

Answer 1

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.