2. составьте программу. составьте программу, определяющую, кто из двух подруг старше маша или саша, или они ровесники. m – возраст маши s – возраст саши (исходные переменные) результат – выведенное на экран предложение: саша старше маши (если s> m) маша старше саши (если m> s) саша и маша ровесники (если m=s)

turbo pascal.

 

program qf;

uses crt;

var m,s: integer;

begin

clrscr;

writeln('введи возраст маши');

readln(m);

writeln('введи возраст саши');

readln(s);

if s> m then writeln('саша старше маши')

else

if m> s then writeln('маша старше саши')

else 

if m=s then writeln('саша и маша ровесники');

readln;

end.

pascal abc

var m, s : integer; beginwrite('введите возраст маши '); readln(m); write('введите возраст саши '); readln(s); if s > m then writeln('саша старше маши'); if s < m then writeln('маша старше саши'); if m = s then writeln('саша и маша ровесники')end.

Попробуйте такое: uses graphabc; var   x, y: array [1 .. 100] of integer;   mi, mj, mk, maxr, r, i, j, k: integer; begin   randomize;   for i : = 1 to 100 do   begin       x[i] : = random(600) + 10;       y[i] : = random(360) + 10;       circle(x[i], y[i], 2);   end;   maxr : = 0;   for i : = 1 to 100 do       for j : = 2 to 99 do           for k : = 3 to 98 do           begin                r : = abs((x[i]-x[k])*(y[j]--x[k])*(y[i]-y[k])div 2);               if r > maxr then               begin                   maxr : = r;                   if r > mi then mi : = i;                   if r > mj then mj : = j;                   if r > mk then mk : = k;               end;           end;   setpencolor(clred);   line(x[mi], y[mi], x[mj], y[mj]);   line(x[mj], y[mj], x[mk], y[mk]);   line(x[mk], y[mk], x[mi], y[mi]); end.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin   var (s,p): =(0,1);   for var i: =1 to 6 do (s,p): =(s+i,p*i);   writeln($'1: s={s}, п={p}');   writeln('s=',seqgen(readinteger('2: k='),1,i-> i+2).sum);   write('3: '); range(5,55,2).println;   var (n,m): =readinteger2('4: введите n,m: ');   writeln('п=',n.to(m).aggregate(biginteger(,v)-> u*v));   writeln('5: s=',10.to(15).sum) end.