Larad
5 год назад
Написать программу, используя цикл for.1. Найдите количество трехзначных чисел, кратных 3 и оканчивающихся на 4.2. Вычислить сумму.3. Найти четырехзначное число, равное квадрату числа, выраженного двумя последними цифрами этого четырехзначного числа.
ОТВЕТЫ
Karp
Oct 24, 2020
1)
var i,k,n: byte;
begin
writeln('Трехзначные цифры, кратные 3 и оканчивающиеся на 4');
for i:=100 to 999 do
begin
if (i mod 3=0) and (i mod 10=4)
then write(i,' ');
end;
readln;
end.
3) Число 5776
var i,k,n: byte;
begin
writeln('Трехзначные цифры, кратные 3 и оканчивающиеся на 4');
for i:=100 to 999 do
begin
if (i mod 3=0) and (i mod 10=4)
then write(i,' ');
end;
readln;
end.
3) Число 5776
482
Смежные вопросы:
