Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 3. Затем вводишь сами три числа, каждый раз нажимая энтер когда ввел число. Например 12,13,7. Сумма будет 20. Этот код работает также с любым другим количеством чисел, например вводишь 5, затем набираешь пять чисел целых, он считает сумма некратных трем.
var a,n,i,s:integer;
begin read(n);
while i<n do begin
read(a);
if (a mod 3=1) then s:=s+a; i:=i+1;
end;
writeln(s);<span>
end.</span>
Ответ:
вот на фото представлен пример, а там уже делайте свою по своей заданной теме
№7
1.44 Мбайт=1474,56 КБайт
1474,56 : 100 = 14 , Ответ : 14 файлов
Дай свой вк, я могу решить это
В VBasic создаете командную кнопку и копируете из файла программу кроме первой и последней строк