Паскаль. Даны три целых числа. Определите сумму тех из них, которые не кратны трём. Можно...

Question

Паскаль. Даны три целых числа. Определите сумму тех из них, которые не кратны трём. Можно код? Очень нужно.

Answer 1

Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 3. Затем вводишь сами три числа, каждый раз нажимая энтер когда ввел число. Например 12,13,7. Сумма будет 20. Этот код работает также с любым другим количеством чисел, например вводишь 5, затем набираешь пять чисел целых, он считает сумма некратных трем. 

var a,n,i,s:integer; 
begin  read(n); 
while iread(a);   
if (a mod 3=1) then s:=s+a; i:=i+1; 
end; 
writeln(s); 
end.