dilnaramusaeva
10.12.2022 21:44

Значит помилку в free pascal
program Z1;
Cost A=5;
C=real;
B=integer;
begin
Write('C=');
Read in (C);
B:sqrt (A)+B;
Write ('B=',B);
end​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
nazarushka
06.11.2021 04:57

1) 20₁₀ = 10100₂

2) 68₁₀ = 1000100₂

3) 400₁₀ = 110010000₂

4) 257₁₀ = 100000001₂

5) 2010₁₀ = 11111011010₂

Объяснение:

1) 20₁₀ = n₂

20 mod 2 = 0

10 mod 2 = 0

5 mod 2 = 1

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 10100₂

2) 68₁₀ = n₂

68 mod 2 = 0

34 mod 2 = 0

17 mod 2 = 1

8 mod 2 = 0

4 mod 2 = 0

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 1000100₂

3) 400₁₀ = n₂

400 mod 2 = 0

200 mod 2 = 0

100 mod 2 = 0

50 mod 2 = 0

25 mod 2 = 1

12 mod 2 = 0

6 mod 2 = 0

3 mod 2 = 1

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 110010000₂

4) 257₁₀ = n₂

257 mod 2 = 1

128 mod 2 = 0

64 mod 2 = 0

32 mod 2 = 0

16 mod 2 = 0

8 mpod 2 = 0

4 mod 2 = 0

2 mod 2 = 0

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 100000001₂

5) 2010₁₀ = n₂

2010 mod 2 = 0

1005 mod 2 = 1

502 mod 2 = 0

251 mod 2 = 1

125 mod 2 = 1

62 mod 2 = 0

31 mod 2 = 1

15 mod 2 = 1

7 mod 2 = 1

3 mod 2 = 1

1 mod 2 = 1

Остаток от деления записываем в обратном порядке и получаем число: 11111011010₂

0,0(0 оценок)
Ответ:
Rayanachechenka
08.11.2020 02:30

1)var t: array [1..12] of real;

      i: integer;

begin

  for i:=1 to 12 do readln(t[i]);

  writeln('Средняя температура зимних месяцев: ',((t[12]+t[1]+t[2])/3):0:3);

  writeln('Средняя температура весенних месяцев: ',((t[3]+t[4]+t[5])/3):0:3);

  writeln('Средняя температура летних месяцев: ',((t[6]+t[7]+t[8])/3):0:3);

  writeln('Средняя температура осенних месяцев: ',((t[9]+t[10]+t[11])/3):0:3);

end.

2)var t: array[1..10] of integer;

         c: array[1..10] of real;

         i: integer;

         s,s1: real;

begin

  s:=0;

  for i:=1 to 10 do begin writeln('Введите количество товара'); readln(t[i]) ; end;

  for i:=1 to 10 do begin writeln('Введите цену товара');readln(c[i]);end;

  for i:=1 to 10 do begin s1:=t[i]*c[i];

                                    s:=s+s1;

                           end;

  writeln('Общая стоимость всех покупок: ',s:0:3);

end.

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