Написать программу, используя цикл for.

1. Найдите количество трехзначных чисел, кратных 3 и оканчивающихся на 4.

2. Вычислить сумму.

3. Найти четырехзначное число, равное квадрату числа, выраженного двумя последними цифрами этого четырехзначного числа.

Question

Информатика

Филофея

11 октября, 00:59

Написать программу, используя цикл for.

1. Найдите количество трехзначных чисел, кратных 3 и оканчивающихся на 4.

2. Вычислить сумму.

3. Найти четырехзначное число, равное квадрату числа, выраженного двумя последними цифрами этого четырехзначного числа.

+4

Ответы (1)

Знаете ответ на вопрос?

Лариса · Answer 1

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