Назовите основной компонент вывода текстовых данных в среде Lazarus и его свойства

225

230

Посмотреть ответы 1

Ответы на вопрос:

Бота157

Информатика

4,4(64 оценок)

pascal var a,b,i,c,d: integer; begin writeln ('введите два натуральных числа'); readln (a,b); if (a> 0) and (b> 0) then begin if (a=b) then writeln ('нод = ',a) else begin if (a> b) then c: =a else c: =b; for i: =1 to c do begin if (a mod i=0) and (b mod i=0) then d: =i; end; writeln ('нод = ',d); end; end else writeln ('неверный ввод'); end.