almiradkzbd
13.06.2021 14:48

класс информатика

1. У исполнителя Удвоитель две команды:
1. прибавь 1
2. умножь на 2
Напишите программу из 4 команд, которая преобразует число 6 в число 29.
ответ:

2. У исполнителя Удвоитель две команды:
1. прибавь 1
2. умножь на 2
Напишите программу из 5 команд, которая преобразует число 2 в число 26.
ответ:

3. У исполнителя Удвоитель две команды:
1. прибавь 1
2. умножь на 2
Напишите программу из 5 команд, которая преобразует число 6 в число 51.
ответ:
4. У исполнителя Калькулятор две команды:
1. прибавь 2
2. умножь на 3
Напишите программу из 5 команд, которая преобразует число 5 в число 83.
ответ:
5. У исполнителя Калькулятор две команды:
1. вычти 2
2. умножь на 3
Напишите программу из 5 команд, которая преобразует число 8 в число 50.
ответ:

6. У исполнителя Калькулятор две команды:
1. вычти 3
2. умножь на 2
Напишите программу из 4 команд, которая преобразует число 8 в число 40.
ответ:
7. У исполнителя Удвоитель две команды:
1. прибавь 1
2. умножь на 2
Напишите программу из 4 команд, которая преобразует число 4 в число 36.
ответ:

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
Darina2581
19.08.2021 21:11
Задание 5

program SumSeq;

 

{$APPTYPE CONSOLE}

 

uses

  SysUtils;

//const m:Integer  ;

var

  i, j, m, s:Integer;

  n: array of Integer;

begin

  s:=0;

  Writeln(m);

  Writeln('vvedite m');

  Readln(m);

  SetLength(n,m);

  for i:=0 to m do

    begin

      j:=Random(10);

      if j<5

         then n[i]:=-1*j

         else n[i]:=j;

      write(n[i], ' ')

    end;

  Writeln;

  Writeln('To continue push >>ENTER');

  Readln;

 

  for i:=0 to m do

    begin

      if n[i]<0

        then s:=s+sqr(n[i])

    end;

   writeln('s=',s);

   readln

 

 

  { TODO -oUser -cConsole Main : Insert code here }

end.

0,0(0 оценок)
Ответ:
KMasha11
12.10.2021 16:05
1.
Const R=5;
Var L,S:real;
Begin
L:=2*Pi*R;
S:=Pi*sqr(R);
writeln ('Радиус окружности R = ',R, ' см');
writeln ('Длина окружности L = ',L:4:2, ' см');
writeln ('Площадь круга S = ',S:4:2, ' см кв.');
End.

2.
Const r1=20;
Var S1,S2,S,r:real;
Begin
writeln ('Введите внешний радиус');
readln (r);
S1:=Pi*sqr(r1);
S2:=Pi*sqr(r);
S:=S2-S1;
writeln ('Площадь кольца = ', S:4:2);
End.

3. 
Var tet, ob, col, kar, ck, sum: real;
Begin
writeln ('Введите цену 1 тетради');
readln (tet);
writeln ('Введите цену 1 обложки');
readln (ob);
writeln ('Введите количество комплектов');
readln (col);
writeln ('Введите цену 1 карандаша');
readln (kar);
writeln ('Введите количество карандашей');
readln (ck);
sum:=(tet+ob)*col+kar*ck;
writeln ('Стоимость покупки = ', sum);
End.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота