<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var (x,y,z):=ReadReal3('Введите через пробел три числа:');
if (x+y>z) and (x+z>y) and (y+z>x) then Writeln('Треугольник существует')
else Writeln('Треугольник не существует')
end.
<u>Примеры</u>
Введите через пробел три числа: 2.34 5.18 9
Треугольник не существует
Введите через пробел три числа: 3 4 5
Треугольник существует
var
a,F:integer;
begin
Write('Введите a: '); Read(a);
if a<-3 then F:=3*a*sqr(a)-1
else
if a>5 then F:=3*sqr(a)-2
else F:=sqr(a)-2*a+3;
Writeln('F=',F)
end.
<span>передачу информации по заданному адресу</span>
1. 2,048 кбайт
2. 416 бит
3. 120*10*8*800*600 = 4 608 000 000бит -> 576 000 000бит -> 576 000байт -> 576 мбайт
4.10*20=200 точек в изображении каждая точка несет в себе 1 бит информации <span>=> 200 бит в изображении
5. монитор</span>