Предмет: Информатика,
автор: eeee3gugfg
Написать программу количество натуральных чисел
Паскаль
Помогите пожалуйста
Ответы
Автор ответа:
0
Ответ:
var s,n:integer;
begin
repeat
readln(n);
if (n mod 3=0) and (n<10) then s:=s+n;
until n=0;
writeln('S=',s);
end.
Интересные вопросы
Предмет: Русский язык,
автор: Аноним
Предмет: Другие предметы,
автор: Koleso888
Предмет: Русский язык,
автор: PireevaNastuha
Предмет: Математика,
автор: jaxkfrais
Предмет: История,
автор: pashamacarov2015