Предмет: Информатика,
автор: ylia17
Последовательность из 10 чисел. Определить сколько чисел заканчивается 0
Ответы
Автор ответа:
0
var a:array [1..10] of integer;
n,i:integer;
Begin
{vvod massiva skopirovat suda}
for i:= 1 to 10 do begin
if a[i] mod 10 = 0 then
n:=n+1;
end;
writeln(n);
End.
Интересные вопросы
Предмет: Русский язык,
автор: guchevanyusya
Предмет: Геометрия,
автор: KiroSkitsky
Предмет: Физкультура и спорт,
автор: Dauren520
Предмет: Экономика,
автор: Аньча
Предмет: Математика,
автор: cvbn2000