Продолжить алгоритм пузырьковой сортировки
24 18 26 -51 -43

program nm13; uses crt; var s1,s2,d,a,diag: real; beginwriteln('vvedi ploschad kruga i ploschad kvadrata'); readln(s1); readln(s2); d: =2*sqrt(s1/3.14); a: =sqrt(s2); diag: =2*sqrt(2*a*a); if diag> d then writeln (' krug pomestits9 v kvadrate ') else writeln (' krug ne pomestits9 v kvadrate ');

readln;

end.

в египетском письме было более 750 иероглифов, не было гласных. иероглифы обозначали целые слоги и звуки.

1.найти разность показаний счетчика на конец месяца и на начало месяца.

2.умножить на цену одного квт/часа

теперь не плагиат

program pr; var c: integer; beginwriteln('введите число с'); readln(c); writeln('остаток от целочисленного деления числа ',c,' на 10 в квадрате равен ',sqr(c mod 10)); end.