Ответы на вопрос:
pascal
Объяснение:
var
a, b, col: integer;
begin
repeat
Write('Введите число a: '); ReadLn(a);
Write('Введите число b: '); ReadLn(b);
until a<=b;
repeat
if ((sqr(a)*a) mod 10 = 4) or ((sqr(a)*a) mod 10 = 9) then inc(col);
inc(a);
until a>b;
WriteLn('Количество чисел в диапазоне от ', a, ' до ', b,
' включительно, куб которых оканчивается на 4 или 9 равно ', col);
end.
Популярно: Информатика
-
papka8906.03.2022 03:15
-
kir2808200019.09.2020 05:59
-
prestigpad29.11.2022 16:57
-
8HELP822.05.2023 17:40
-
anastasiyaryum109.02.2021 02:37
-
Tryys29.04.2023 04:20
-
Utugav06.06.2021 00:14
-
kiznijmaksimowbvhl15.01.2021 01:09
-
artem151419.07.2020 11:44
-
lap8592803.07.2022 17:21