Расскажите о возможностях владения электронным почтовым ящиком?

заражоный диск или инет захват не заражоных файлов удаляет или заменяет их установить антивирусник . всегда проверять вайлы антивирусом

var a,b,c: real; beginwriteln('введите данные о катетах'); readln(a,b); c: =1/2*a*b; writeln('площадь= ',c: 0: 2); readlnend.

  если паскаль абс, то предпоследнюю строку не обязательно.

pascal abc

var a,b: real;

begin

read(a,b);

if (a> 0) and (b> 0) then write(a+b,' ',a*b)

else

write(a-b,' ',a/b);

end.

как по мне то лучше удобство и ничего лишнего, ведь список сохранять не говорили

var s: string;

k: integer;

begin  repeat      write('введите фамилию: ');       readln(s);       if (length(s)=9) or (length(s)=8) then

          k: =k+1   until s=''; {прекращаем чтенье если нам посылают пустую строку}  writeln(k); end.