Напишите,пожалуйста,программу. Задача: Найдите все целые трехзначные числа которые делятся на 11 и 3. ПОМОГИТЕ!!!
Напишите,пожалуйста,программу.
Задача:
Найдите все целые трехзначные числа которые делятся на 11 и 3.
ПОМОГИТЕ!!!
Гость
Ответ(ы) на вопрос:
Гостьprogram z1;
var x:integer;
begin
for x:=100 to 999 do
if (x mod 11=0)and(x mod 3=0) then
write (x,' ');
end.
Не нашли ответ?
Похожие вопросы