Var x,y,b:real;
begin
b:=6;
while b>=5 do
begin
writeln('Введите параметр b (b<5): ');
readln(b);
end;
x:=b;
writeln('x':2,'y':6);
repeat y:=cos(x)*Pi/x;
writeln(x:3:1,' ',y);
x:=x+0.1;
until x>5;
<span>end.</span>
Var a,b,c:integer;
begin
writeln('a=');
readln(a);
writeln('b=');
readln(b);
writeln('c=');
readln(c);
if (a+b>c) and (b+c>a) and (a+c>b) then writeln('treugolinik suscestvuet ;) else writeln('treugolinik ne suscestvuet');
readln;
end.
Кратчайший путь от A->F = 5, самая короткая дорога A->D->F = 1+4+5
Источник информации - Кодирующее устройство - Канал связи - Декодирующее устройство - Приёмник информации
И это 1-4 классы?Думай, прежде чем опубликовывать вопрос!