ОФ
Оксана Фёдорова
Ввод: последовательность чисел, заканчивающаяся 0. Вывод: сумму кратных 3. Pascal ABC
Ввод: последовательность чисел, заканчивающаяся 0.
Вывод: сумму кратных 3
Помогите решить, плз!
Ввод: последовательность чисел, заканчивающаяся 0.
Вывод: сумму кратных 3
Помогите решить, плз!
var a,s:integer;
begin repeat read(a); s:=s+a*ord(a mod 3=0) until a=0; writeln(s); readln end.
зачем учить паскаль) по мне так ерунда...