В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
Proyd1
Proyd1
18.05.2021 21:50 •  Информатика

15. Исполнитель Чертежник перемещается на координатной плоскости, оставляя след в виде линии. Чертежник может выполнять команду Сместиться на (a, b) (где а. 6-целые числа), перемещающую Чертежника из точки с координатами (x, y) в точку с координатами (x + a, y + b). Если числа с. в положительные, значение соответствующей координаты увеличивается; если отрицательные, уменьшается. Чертежнику был дан для исполнения следующий алгоритм: Повтори 7 раз 7 Сместиться на (-1, 2) Сместиться на (-5, 2) Сместиться на (4,-4) Конец Какую команду надо выполнить Чертежнику, чтобы вернуться в исходную точку, из которой он начал движение? 1) Сместиться на (14, 0) 2) Сместиться на (15, 1) 3) Сместиться на (16, 2) 4) Сместиться на (17, 3)

Показать ответ
Ответ:
Екатерина2987
Екатерина2987
24.09.2020 23:18

var

   i: Integer;

   l: Single;

   counter: Integer;

begin

 counter := 0;

 for i := 0 to 14 do begin

   Read(l);

   if l >= 165 then

       counter := counter + 1 ;

 end;

 Writeln(counter);

end.

Второй вариант

const

 cN: Integer = 15;

 cMinSuitableLength: Single = 165;

var

 arr: array [0..14] of Single;

 i, counter: Integer;

begin

 for i := 0 to Length(arr) - 1 do

   Read(arr[i]);

 counter := 0;

 for i := 0 to Length(arr) - 1 do

   if arr[i] >= cMinSuitableLength then

     counter := counter + 1;

 Writeln(counter);

end.

Объяснение:

0,0(0 оценок)
Ответ:
dimaborysyk99
dimaborysyk99
24.09.2020 23:18

var

   i: Integer;

   l: Single;

   counter: Integer;

begin

 counter := 0;

 for i := 0 to 14 do begin

   Read(l);

   if l >= 165 then

       counter := counter + 1 ;

 end;

 Writeln(counter);

end.

Второй вариант

const

 cN: Integer = 15;

 cMinSuitableLength: Single = 165;

var

 arr: array [0..14] of Single;

 i, counter: Integer;

begin

 for i := 0 to Length(arr) - 1 do

   Read(arr[i]);

 counter := 0;

 for i := 0 to Length(arr) - 1 do

   if arr[i] >= cMinSuitableLength then

     counter := counter + 1;

 Writeln(counter);

end.

Объяснение:

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота