Составить алгоритм , по которому на компе будет происходить следующее : в переменную s вводится возраст саши, в переменную м вводится возраст маши. в качестве результата на экран выводится фраза "саша старше маши " или "маша старше саши" 2)решить , учитывая возможность одинаково возраста саши и маши в таком случае может быть получен ответ : "саша и маша ровестники"

var a, b: integer; begin readln(a, b);

if(a > b) then writeln('саша старше маши')  else if(a < b) then writeln('саша младше маши')    else writeln('саша и маша ровесники'); end.

Паскаль АВС:

Program  Albinur;

uses crt;

var

 v0,a,t : real;

begin

 writeln('Программа вычисляет скорость объекта при равноускоренном движении');

 writeln(' в заданный момент времени');

 write('Введите начальную скорость в м/с  '); readln(v0);

 write('Введите ускорение в м/с^2  '); readln(a);

 write('Введите время в с  '); readln(t);

 writeln();  writeln();

 writeln('*** Вычисляю... ***');

 writeln();  writeln();

 writeln('Через ',t,' секунд после начала движения скорость объекта будет равна ',v0+a*t,' м/с');

end.

Объяснение:

Да, это должно решаться одной программой. const n=15; var   a: array[1..n] of integer;   k,k2: integer;   i: byte; begin   randomize;   k: =0;   writeln ('исходный массив: ');   for i: =1 to n do begin         a[i]: =random(10);     write (a[i]: 3);     if a[i]=8 then begin k: =k+1; a[i]: =0; end;   end;   writeln;   if k=0 then writeln ('нет элементов, равных 8')     else writeln ('количество элементов, равных 8: ',k);     k2: =0;   writeln;   writeln ('измененный массив: ');   for i: =1 to n do begin     write (a[i]: 3);     if a[i]=0 then k2: =k2+1;   end;   writeln;   if k2=0 then writeln ('нет элементов, равных 0')     else writeln ('количество элементов, равных 0: ',k);   a[n]: =k*8;   writeln ('сумма первоначальных восьмерок и нулей = ',a[n]);   writeln ('количество восьмерок (изначальных) и нулей = ',k+k2);   end. результат: исходный массив:   5   8   2   2   3   7   2   8   3   3   4   2   3   2   5 количество элементов, равных 8: 2 измененный массив:   5   0   2   2   3   7   2   0   3   3   4   2   3   2   5 количество элементов, равных 0: 2 сумма первоначальных восьмерок и нулей = 16 количество восьмерок (изначальных) и нулей = 4