дана бесконечная последовательность определит количество и сумму чисел этих последовательности который делится на 5 окончание последовательности
5-9 класс
|
равно 0
var numb,count:integer;
begin
readln(numb);
while numb<>0 do
begin
if (numb mod 5 = 0) then
count:=count+1;
readln(numb);
end;
writeln(count);
end.
составит блок схему и програму
по программе не сможешь блок схему составить?
напиши, если будут вопросы)
Другие вопросы из категории
продают дальше я сама сделаю
последнего байта .который занят данным текстом?
а) Тождественных
б) Пересекающихся
в) Подчиняющих и подчиненных
г) Соподчиненных
Читайте также
6.Программа должна вывести одно число:сумму чисел,введенных с клавиатуры, кратных 4 и оканчивающихся на 6.
содержит 1 кбайта информации и состоит из 2048 символов.определить количество символов в алфавите,с помощью которого написано сообщение.
2)Даны натуральные числа от 1 до 150. Найти сумму тех из них, которые делятся на 5 или на 7.
3)Напечатать те из чисел от 10 до 50, которые делятся на 4, но не делятся на 6
4)Найти произведение нечетных чисел от 10 до 50, кратных 13
кто может сделать в Паскале или просто решить?
Введите 5 положительных уныл чисел, вычислите сумму тех из них которые делятся на 4, и оканчиваются на 6. Если таких чисел нет, то вывести об этом сообщение.