Var
k, n: integer;
begin
k := 0;
n := 3;
repeat
k := k + 1;
n := n + 7;
until n > 366;
writeln(k);
end.
Ответ 52
<span>В России построена первая телеграфная линия - 40-е гг. 19 века.</span>
<span>В Америке изобретён телефон - 1876 г</span>
<span>Русский ученый Попов открыл радиосвязь - <span>1895 г.</span></span>
Создан первый телевизор - 30-е гг. 20 века
<span><span><span><span><span><span><span><span>В США начала функционировать первая в мире компьютерная - </span>1969 г. </span></span></span></span></span></span></span>
можно среда, элементраные действия, система команд, отказы ну и так далее
Program n1;
var x,y: real;
begin
read(x);
if x>=3 then y:=x*x+5 else y:=x-8;
writeln ("y=",y)
end.