На бесконечном поле имеется стена длины отрезков стены неизвестны стена состоит из одного горизонтального - id1567726620210516 от killfa 16.05.2021 09:12

Question

Информатика: На бесконечном поле имеется стена длины отрезков стены неизвестны стена состоит из одного горизонтального и 3 равных вертикальных отрезков отрезки стены расположены Буквой Е все отрезки неизвестной длины робот находится в клетке расположенной непосредственно слева от верхнего конца вертикального отрезка на рисунке указан один из возможных расположения стен и робота робот обозначена буквой Р Напишите для робота алгоритм закрашивающий все клетки расположенные надо нижним горизонтальным отрезком стены

killfa · Accepted Answer

Задание №1
var
x:integer;
begin
for x:=5 to 15 do Writeln('x=',x:2,' y=',2*x)
end.

Результат выполнения программы:
x= 5 y=10
x= 6 y=12
x= 7 y=14
x= 8 y=16
x= 9 y=18
x=10 y=20
x=11 y=22
x=12 y=24
x=13 y=26
x=14 y=28
x=15 y=30

Задание №2
var
x:real;
begin
x:=1;
while x<=2 do begin
    Writeln('x=',x:4:1,'   y=',sin(3*x):8:5);
    x:=x+0.3
end
end.

Результат выполнения программы:
x= 1.0   y= 0.14112
x= 1.3   y=-0.68777
x= 1.6   y=-0.99616
x= 1.9   y=-0.55069

Задание №3
const
n=40;
var
i:integer;
a:real;
begin
for i:=1 to n do
begin Write('a',i,'='); Read(a); Writeln('S=',sqr(a)) end
end.

Фрагмент работы программы:
a1=2.6
S=6.76
a2=4.18
S=17.4724
a3=1
S=1
a4=17
S=289
a5=

MOGZ ответил