Question

Помогите, пожалуйста. Нужно написать решение задач в Паскаль

Answer 1

Ответ:

1.

program z1;

var a,b: integer;

begin

write('Введите числа: ');

readln(a,b);

write ('НОД чисел ',a,' и ',b,' равен ');

repeat

if a>b then a:=a - b else b:=b - a;

until a=b;

writeln (a);

if a mod 2 = 0 then write ('НОД чётный')

else write ('НОД нечётный')

end.

2.

program z1;

var a,s: integer;

begin

s:=0;

repeat

write('Введите число: ');

readln(a);

if (a>49) and (a<100) then s:=s + a;

until a=5;

write ('Сумма двузначных чисел, не меньших 50, равна ', s)

end.