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

Написать программку, используя цикл for.
1. Найдите количество трехзначных чисел, кратных 3 и заканчивающихся на 4.
2. Вычислить сумму .
3. Отыскать четырехзначное число, одинаковое квадрату числа, выраженного 2-мя заключительными цифрами этого четырехзначного числа.

Задать свой вопрос
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
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт