Question

СРОЧНО!!! 1)С клавиатуры вводится 20 чисел. Найти произведение чисел кратных 4.2) Найти количество 4-х значных чисел оканчивающихся на 3. Турбо Паскаль. Заранее спасибо))

Answer 1

vara,k,s,b:integer;Begins:=1;b:=0;for k:=1 to 20 dobeginreadln(a);if (a div 1000 <10) and (a div 1000 >0) and (a mod 10 = 3) thenb:=b+1;if (a mod 4 = 0) thens:=s*a;end;writeln('Произведение чисел, кратных четырем - ',s);writeln('Количество четырехзначных чисел, оканчивающихся на три - ',b);end.

Answer 2

var
a,k,s,b:integer;
Begin
s:=1;
b:=0;
for k:=1 to 20 do
begin
readln(a);
if (a div 1000 <10) and (a div 1000 >0) and (a mod 10 = 3) then
b:=b+1;
if (a mod 4 = 0) then
s:=s*a;
end;
writeln('Произведение чисел, кратных четырем - ',s);
writeln('Количество четырехзначных чисел, оканчивающихся на три - ',b);
end.