Учому полягає формування символив тексту?

Question

Информатика: Учому полягає формування символив тексту?

ААААТУПАЯРЕГИСТРАЦИЯ · Accepted Answer

1.var a,b:integer; begin writeln( введите числа (0 признак окончания ввода) ); readln(a); b:=1; while (a 0) do begin readln(a); if (a mod 2 = 0) and (a 0) then b:=b*a; end;writeln( произведение чётных  чисел последовательности ,b); end. 2.var a,b:integer; begin b:=0; a:=1; while (a =10000) do begin if (a mod 10 = 0) then b:=b+1; a:=a+1; end; writeln( количество круглых чисел ,b); end. 3.var a,b:integer; begin writeln( введите числа (1 признак окончания ввода) ); readln(a); b:=0; while (a 1) do begin...

MOGZ ответил