Program psck;
vara,b: integer;p,s: real;
begin
read(a,b); //стороны треугольника s:=a*b/2; p:=a+b+sqrt(a*a+b*b); writeln('Периметр - ',p); write('Площадь - ',s); end.
Море-горе-гора-пора-пара-папа-сапа-Саша-суша.
const d = 31;
var
a: array[1..d] of integer;
i, count, mdl: integer;
begin
for i := 1 to d do begin
a[i] := random(31);
write(a[i], ' ');
mdl := mdl + a[i];
end;
writeln;
writeln('Средняя температура: ', (mdl / d):0:2);
for i := 1 to d do
if(a[i] > mdl / d) then inc(count);
writeln('Дни, в которые температура была выше средней: ', count);
end.
По-моему, этот вопрос имеет больше отношение к линвистике,
чем к информатике. Тем не менее, относительно текста можно:
1. заменить слова синонимами, акронимами, и .т. п.
2. изменить стилистику текста
3. зашифровать, изменить кодировку символов
4. добавить HTML разметку и др. виды форматирования
5. структурировать, изменить логику высказываний
6. посчитать количество высказываний ложь / истина
7. море других опреаций из разных областей