Предмет:
ИнформатикаАвтор:
bentley38Автор:
gallagherАвтор:
jamierlqtОтвет:
Объяснение
var n,i,a,b:integer;
begin
b := 0;
write('введите n - '); readln(n);
for i:= 1 to n do begin
write('введите a - '); readln(a);
if a mod 10 = 0 then
b := b + 1;
end;
write('количество чисел кратных 10 - ', b);
end.
Автор:
bug6n9iДобавить свой ответ
Предмет:
ГеографияАвтор:
hayleevkzkОтветов:
Смотреть
Предмет:
МатематикаАвтор:
navarroОтветов:
Смотреть
Предмет:
Українська літератураАвтор:
stichОтветов:
Смотреть
Предмет:
ОбществознаниеАвтор:
lukasОтветов:
Смотреть