program proga;
uses crt;
var
x,y: integer;
begin
clrscr;
writeln('введите поочередно два числа');
readln(x);
readln(y);
if x> y then
writeln(' x> y ')
else
if y> x then
writeln(' y> x ')
else
writeln(' y=x ') ;
writeln;
end.
program arika2; uses crt; var a,b: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); writeln('введите два числа'); write('первое: '); readln(a); write('второе: '); readln(b); if a> b then writeln('первое число больше второго') else if a> b then writeln('второое число больше первого') else writeln('числа равны'); end.
Поделитесь своими знаниями, ответьте на вопрос:
Нужно 2 вопроса (с тремя вариантами ответа) по майкрософт ворд и 1 вопрос что такое "майкрософт ворд"