1.44 *1024 = 1474.56 Кб * 1024 = 1509949,44 байт
1509949,44 байт - 80% = 301989,88 байт
301989,88 байт можно ещё записать
Var a, b, c : integer;beginfor b:=15 to 95 doif b mod 3 = 0 thenbegina:=a+1;c:=c+a;end;writeln('Кол-во чисел = ',a);writeln('Сумма чисел = ',c);end.
<span>На первое задание
4) разорви
5) намочи
6) изгрязни
7)высуши
8) положи
9) конец</span>
Var a,b,c:real;
begin
writeln ('Введите стороны треугольника');
read (a,b,c);
if ((a + b) > c) and ((a + c) > b) and ((b + c) > a) then writeln ('Существует')
else writeln ('Не существует');
end.