помогите написать задачи на Pascal

1. выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4

2. Найти НОД двух целых чисел.

Question

Информатика

Евка

21 мая, 04:16

помогите написать задачи на Pascal

1. выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4

2. Найти НОД двух целых чисел.

+5

Ответы (1)

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

Парамон · Answer 1

1) var n, i:integer;

begin

for i:=1 to 500 do

if (i mod 3=0) and (i mod 10=4) then

writeln (i) ;

readln;

end.

2)

var a, b:integer;

begin

readln (a, b) ;

while (a0) and (b0) do

if a>b then a:=a mod b

else b:=b mod a;

writeln (a+b) ;

readln;

end.

помогите написать задачи на Pascal1. выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 42. Найти НОД двух целых чисел.

помогите написать задачи на Pascal

1. выведите на экран натуральные числа, меньшие 500, кратные 3 и заканчивающиеся на 4

2. Найти НОД двух целых чисел.