A: На вход программы поступает неизвестное количество чисел целых, ввод заканчивается нулём. Определить, сколько получено чисел, которые делятся на 3. B: На вход программы поступает неизвестное количество целых чисел, ввод заканчивается нулём. Определить, сколько получено двузначных, которые заканчиваются на 3.
Паскаль.
Программа:
Pascal:
А)
var
n, k: integer;
begin
readln(n);
while n <> 0 do begin
if n mod 3 = 0 then inc(k);
readln(n);
end;
writeln(k, ' чисел.');
end.
В)
var
n, k: integer;
begin
readln(n);
while n <> 0 do begin
if (n mod 3 = 0) and (length(IntToStr(n)) = 2) then inc(k);
readln(n);
end;
writeln(k, ' чисел.');
end.