1.Напишите программку, которая в последовательности естественных чисел определяет количество
1.Напишите программку, которая в последовательности естественных чисел определяет количество всех чисел, кратных 3 и оканчивающихся на 0. Программка получает на вход естественные числа, количество введённых чисел безызвестно, последовательность чисел кончается числом 0 (0 признак окончания ввода, не входит в последовательность).
2.Что будет на экране после исполненья программы
Var I, s,k: integer;
Begin .. s := 0;
for i := 0 to 10 do
s := s-i+5; writeln(s);
End.
1 ответ
Алёна Загрябина
1) (если последовательность не порожняя, т.е есть хотя бы 1 число lt;gt; 0)
var x,k:integer;
begin
k:=0;
repeat
readln(x);
if (x mod 10=0) and (x mod 3=0) then inc(k);
until x=0;
writeln(k-1);
end.
2) 0
s=0-0+5-1+5-2+5-3+5-4+5-5+5-6+5-7+5-8+5-9+5-10+5=0
var x,k:integer;
begin
k:=0;
repeat
readln(x);
if (x mod 10=0) and (x mod 3=0) then inc(k);
until x=0;
writeln(k-1);
end.
2) 0
s=0-0+5-1+5-2+5-3+5-4+5-5+5-6+5-7+5-8+5-9+5-10+5=0
Агата Сдобнева
Если вводится 0, то какой вообщем смысл в этой программе?
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
задание экономиоти
Рассмотри ситуацию: человек живёт на Крайнем Се-вере. С помощью каких
Экономика.
Человек живет на Крайнем Севере. С помощью каких благ удовлетворяются потребности
Экономика.
там лежат три яйца.у дома рос клен.Это гнездо сойки.на клёне гнездо
Русский язык.
Тыныштық күйіндегі карусель 35 с-та 3,0 рад/с бұрыштық жылдамдықпен үдей қозғалады.
Разные вопросы.
Сочинение на тему "Русский язык не сможет умереть!"
Математика.
Приветствую!
Меня зовут Станислав, я представляю компанию under.site.
Хотел бы предложить интересное решение
Разные вопросы.
Масса трёх одинаковых пакетов чая 180г чему равна масса
Математика.
Газообразный аммиак объёмом 2.24 л (н.у.) был полностью поглощён 14.68 мл
Химия.
Упражнение 2 Выпишите глаголы и вставьте пропущенные буквы
Русский язык.
Радиус окружности, описанной около равностороннего треугольника, равен 6. Найдите сторону треугольника
Геометрия.
Облако тегов