Напишите программу, которая в последовательности целых чисел определяет количество чисел, кратных 3 и оканчивающихся на 2
134
318
Ответы на вопрос:
Program Zadacha197;
uses crt;
var i, k, a:integer;
BEGIN
writeln('Введите а');
readln(a);
i := 0;
k := 1;
while (a<>0) and (k < 1000) do
begin
if (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;
k := k + 1;
readln(a);
end;
writeln(i, '- количество четных чисел, кратных трём.');
END.
- while (a<>0) and (k < 1000) эту часть кода можно понять так, пока введенное число не равно нулю и количество введенных чисел не превышает 1000 то выполняется программа.
- if (a mod 3 = 0) and (abs(a) <= 30000) если введенное число делится на три без остатка и по модулю введенное число меньше 30000 то выполняется данное условие.
- i эта переменная у нас считает количество чисел кратных трём.
- k эта переменная считает количество введенных чисел во время использования программы.
- a эта переменная вводится пользователем.
uses crt;
var i, k, a:integer;
BEGIN
writeln('Введите а');
readln(a);
i := 0;
k := 1;
while (a<>0) and (k < 1000) do
begin
if (a mod 3 = 0) and (abs(a) <= 30000) then i := i + 1;
k := k + 1;
readln(a);
end;
writeln(i, '- количество четных чисел, кратных трём.');
END.
- while (a<>0) and (k < 1000) эту часть кода можно понять так, пока введенное число не равно нулю и количество введенных чисел не превышает 1000 то выполняется программа.
- if (a mod 3 = 0) and (abs(a) <= 30000) если введенное число делится на три без остатка и по модулю введенное число меньше 30000 то выполняется данное условие.
- i эта переменная у нас считает количество чисел кратных трём.
- k эта переменная считает количество введенных чисел во время использования программы.
- a эта переменная вводится пользователем.
Человек соблюдает законы, оставаясь свободным в их рамках, возможно, сам их совершенствует.
Популярно: Другие предметы
-
умный32118.01.2022 17:48
-
BLACK2IVAN26.06.2020 09:03
-
гуманитарий001318.01.2020 08:13
-
незнайка111722.06.2023 07:00
-
Чай2404.07.2020 13:37
-
dashasm0631.07.2021 07:42
-
bahromt199920013.01.2022 11:43
-
annasoloveva0210.05.2022 22:53
-
sabinagamzaeva10.10.2022 01:54
-
katyavat40owixtk17.07.2021 15:09