1)
var a,b,c:real;
begin
write('Введите три стороны треугольника: ');
readln(a,b,c);
if((a < b+c) and (b < a+c) and (c < a+b)) then write('Периметр треугольника: ',(a+b+c):9:3)
else write('Треугольник с данным сторонами не существует');
end.
2)
var a,b:real;
begin
write('Введите два числа: ');
readln(a,b);
writeln('Сумма данных чисел: ',(a+b):9:3);
write('Произведение данных чисел: ',(a*b):9:3);
end.
4 часа = 4 * 60 минут = 240 минут
Всего слов 240 * 160 = 38400 слов
В каждом слове 6 символов, всего символов = 38400 * 6 = 230400
Если на 1 символ отводить 1 байт, то получим
230400 байт = 230400/1024 Кб = 225 Кб
Ответ. 225 Кб
<span>ДЕДУКЦИЯ (от лат. deductio — выведение), вывод по правилам логики; цепь умозаключений (рассуждение), звенья которой (высказывания) связаны отношением логического следования. Началом (посылками) дедукции являются аксиомы, постулаты или просто гипотезы, имеющие характер общих утверждений («общее»), а концом — следствия из посылок, теоремы («частное»). Если посылки дедукции истинны, то истинны и ее следствия. </span>
var a:array[1..10] of integer;
s,s1:longint;
i,n:integer;
begin
n:=20;
s:=0; s1:=0;
for i:=1 to n do
begin
writeln('Vvedite element ',i);
read(a[i]);
end;
for i:=1 to n do
begin
write(a[i]:4);
end;
writeln;
for i:=1 to n do
begin
begin
if (a[i] mod 2=0) then s:=s+a[i];
end;
begin
if (a[i] mod 5=0) then s1:=s1+a[i];
end;
end;
writeln('Summa kratnix 2 = ',s);
writeln('Summa kratnix 5 = ',s1);
end.