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

@Влад9н · Регистрация: 24.01.2013

только надо решить без функций for to do
толь можно else if and then

@Doomay · 24.01.2013, 23:46

Сообщение от Влад9н

только надо решить без функций for to do
толь можно else if and then

бредовое задание.) Прочитать 4 переменных, проверить на делимость без остатка на три, если подходят - сложить.

Pascal

Var a,s:longint;
   i:byte;
Begin
  s:=0;
  i:=1;
 
 while i<=4 do
 begin
  read(a);
  if a mod 3 = 0 then s:=s+a;
  i:=i+1;
 end;
 
 writeln(s);
end.

@Влад9н 0 / 0 / 1 Регистрация: 24.01.2013 Сообщений: 5
		1
	Даны четыре целых числа. Определить сумму тех из них, которые кратны 3 24.01.2013, 20:22. Просмотров 1683. Ответов 1 Метки нет (Все метки) только надо решить без функций for to do толь можно else if and then 0

Опции темы

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

Решение