Регистрация
YuliaG2000
11.05.2020 05:18
Информатика
Есть ответ 👍

Найти сумму чисел кратных трем pascal abc​

282
401
Посмотреть ответы 1

Ответы на вопрос:

zybikrybik
zybikrybik
4,5(26 оценок)

var i,s: integer; beginwhile i< > 100 do beginreadln(i); if i mod 2=0 then inc(s); end; inc(s); writeln(s); end.

 

var a: string; beginreadln(a); a[1]: ='9'; writeln(a); end.

Популярно: Информатика