Дан массив М: 24, 7, 14, 8, 56, 12, 48, 25, 19, 17. Что появиться на экране после выполнения фрагмента программы:
s:=m[1];
for k:=2 to 10 do
if m[k]>s then s:=m[k];
writeln(s);
запишите программу целиком

1.

var n: integer; begin  cls;   for n: =1 to 10 do begin    write('n=',sqr(n)+5,' ');   end; end.

решить на паскале?

1.

program xxx;

var i, n : integer

begin

  writeln ('введите число n=');

  readln (n);

  writeln ('делители числа: ');

  for i: = 1 to n do

      if n mod i = 0 then writeln (i);

  readln

end.

бег-бог-лог-лаг-шаг

бант-кант-карт-кара-кора-коса

шар-бар-бам-бум-кум-куб

муха-мура-фура-фора-кора-корн-коан-клан-клон-слон

миг-маг-мак-бак-бек-век

3*2=6128*512*6=393216ъ128+512=640640: 10=6464*6=384кб