Предмет: Информатика, автор: timmach

Даны 15 целых чисел. подготовить лист для определения количества чисел, которые оканчиваются цифрой 5.

Ответы

Автор ответа: SnowFrank
0

Program Frank;
const n=15;
Type mas=array[1..n] of integer;
var a:mas;i,k:integer;
begin
k:=0;
for i:=1 to n do begin
a[i]:=i;
if a[i] mod 10=5 then k:=k+1;
end;
writeln('Кол-во чисел,которые заканчиваются на 5:= ',k);
end.

Програма работает,лично проверил) Написана на языке PASCAL

Похожие вопросы