Среди чисел a, b, c определить количество чисел кратных 3.
5-9 класс
|
Помогите, пожалуйста, написать программу для Turbo Pascal или просто алгоритм.
var a,b,c,k,i:integer;
begin
k:=0;
read(a,b,c);
if a mod 3 = 0 then k:=k+1;
if b mod 3 = 0 then k:=k+1;
if c mod 3 = 0 then k:=k+1;
writeln(k);
end.
Другие вопросы из категории
самого маленького объема ,если известно следующее:у Ани объем флешки меньше,чем у Бори;у Васи больше,чем у Гали;у Даши меньше ,чем у Ивана;у Васи меньше ,чем у Ани;у Даши больше,чем у Бори
Читайте также
содержит 1 кбайта информации и состоит из 2048 символов.определить количество символов в алфавите,с помощью которого написано сообщение.
его индекс.
5) Найти максимальные элементы среди положительных элементов массива 6) Найти максимальные элементы среди отрицательных элементов массива
7) Определить количество максимальных элементов массива
P.S Ребят, все в паскале...заранее спасибо=*
последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000.
числа, количество введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 1000. Введенные числа по модулю не превышают 30000. Про-грамма должна вывести одно число: количество трехзначных чисел, кратных 7
в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000.