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

Задание No10 Решить задачу.
Робот-чертёжник движется по ровной горизонтальной поверхности и наносит на нее
изображение (см. траекторию) при кисти, закреплённой в центре колёсной
базы.
DO
Траектория
Данное изображение (траектория) составлено из трёх пар полуокружностей и двух
равных четвертей окружности. Полуокружности в парах равны.
Диаметр меньшей полуокружности равен 1 м, радиус средней полуокружности в 2 раза
1
больше радиуса меньшей полуокружности. Диаметр четверти окружности на треть
больше диаметра большой полуокружности.
Определите, чему равна длина траектории. При расчётах примите пz 3. ответ дайте в
метрах, при необходимости округлив результат до целых. Приведите подробное
решение данной задачи.
Решение:
ответ:


Задание No10 Решить задачу. Робот-чертёжник движется по ровной горизонтальной поверхности и наносит

Показать ответ
Ответ:
mrvipdanchannep0793v
mrvipdanchannep0793v
12.06.2021 06:23
1.
begin
write('  ');
var P:=ArrRandom(10,10,90).Println('     ');
var T:=P.Select((x,k)->(k+1) mod 2=0?real(x*(k+1)):real(x/(k+1))).ToArray;
for var i:=0 to T.Length-1 do write(T[i]:7:2);
end.

Пример:
  50     37     37     15     40     86     64     41     53     46
  50.00  74.00  12.33  60.00   8.00 516.00   9.14 328.00   5.89 460.00

2.
begin
var k:=ReadInteger('k = ');
var a:=ArrRandom(10,-20,20).Println;
var m:=a.Where(x->x<0).Max;
writeln('Макс.отрицательное = ',m,', ',m,'*',k,'=',m*k);
end.

Пример:
k =  5
15 10 -7 -13 -4 16 -12 -2 9 -12
Макс.отрицательное = -2, -2*5=-10
0,0(0 оценок)
Ответ:
aleksinia
aleksinia
12.01.2020 18:58
9 + 9 + 9 = 27, при вводе числа, больше 27 будут выведены все трёхзначные числа.

Procedure ABC(A:integer);
Var i:integer;
Begin
For i:= 100 to 999 do
    if (i div 100)+((i div 10) mod 10)+(i mod 10)<=A then
       Write(i,' ');
End;
Var A:integer;
Begin
Write('Введите целое число: ');
ReadLn(A);
ABC(A)
End.

Пример:

Введите целое число: 7
100 101 102 103 104 105 106 110 111 112 113 114 115 120 121 122 123 124 130 131 132 133 140 141 142 150 151 160 200 201 202 203 204 205 210 211 212 213 214 220 221 222 223 230 231 232 240 241 250 300 301 302 303 304 310 311 312 313 320 321 322 330 331 340 400 401 402 403 410 411 412 420 421 430 500 501 502 510 511 520 600 601 610 700
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота