Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.78/9: Рейтинг темы: голосов - 9, средняя оценка - 4.78
0 / 0 / 1
Регистрация: 24.01.2013
Сообщений: 5
1

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

24.01.2013, 20:22. Просмотров 1683. Ответов 1
Метки нет (Все метки)


только надо решить без функций for to do
толь можно else if and then
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
24.01.2013, 20:22
Ответы с готовыми решениями:

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

Даны четыре целых числа. Найти сумму тех из них, которые кратны трем и больше пяти
Даны четыре целых числа. Найти сумму тех из них, которые кратны трем и больше пяти. Оператор цикла...

Даны четыре целых числа. найти сумму тех из них, которые кратны трем и больше пяти. Оператор цикла не использовать
Даны четыре целых числа. найти сумму тех из них, которые кратны трем и больше пяти. Оператор цикла...

С клавиатуры в цикле вводятся 10 целых чисел. Определить сумму тех из них, которые кратны 5 (цикл с предусловием)
С клавиатуры в цикле вводятся 10 целых чисел. Определить сумму тех из них, которые кратны 5....

1
11 / 11 / 7
Регистрация: 18.11.2012
Сообщений: 37
24.01.2013, 23:46 2
Лучший ответ Сообщение было отмечено Влад9н как решение

Решение

Цитата Сообщение от Влад9н Посмотреть сообщение
только надо решить без функций for to do
толь можно else if and then
бредовое задание.) Прочитать 4 переменных, проверить на делимость без остатка на три, если подходят - сложить.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.01.2013, 23:46

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Дано натуральное число n и целые числа a1, a2 … an. Определить сумму тех из них, которые кратны числу p.
Дано натуральное число n и целые числа a1, a2,…an. Определить сумму тех из них, которые кратны...

Дано 100 целых чисел, которые вводятся по одному. Получите сумму тех из них, которые кратны 5
Пусть дано 100 целых чисел, которые вводятся по одному. Получите сумму тех из них, которые кратны...

Даны целые числа d1,d2,..., dm. Определить сумму тех из них, которые являются четными
4. Даны целые числа d1,d2,..., dm. Определить сумму тех из них, которые являются четными.

Даны целые числа d1,…,d10. Определить сумму тех из них, которые являются четными
{int s; s=0; int mas={11,2,32,4,52,5,34,55,23,9}; for (int i = 0; i&lt; 10; i++) // { (i &amp;...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.