Sanya055
27.05.2022 07:28

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

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
OvenNeON
24.07.2020 02:00
Вводишь сперва количество чисел, которое будет введено с клавиатуры, в твоем случае это 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); 
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота