М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
dmitry113114
dmitry113114
29.09.2022 10:05 •  Информатика

Запишите число в римской системе счисления-2478 сколько символов содержит одиннадцатиричная система счисления запишите все эти символы. запишите число 5 в двоичной систеие счисления запишите число 7105(10) в развёрнутой форме в како1 минимальной системе счисления записанот число 1206

👇
Ответ:
2478= MMlVVllVlll то первое
4,6(100 оценок)
Открыть все ответы
Ответ:
ovrvoin2
ovrvoin2
29.09.2022
В таком виде программа, хотя бы запустится:
program i_2;
const c=2; f=4; g=6;
var r,p: real;
begin
writeln('определение площади треугольника по теореми Герона');
write('нахождение площади');
readln(r);
p:=(c+f+g)/2;
r:=sqrt(p*(p-c)*(p-f)*(p-g))
end.

Но есть куча вопросов:
1) Если c, f, g - стороны треугольника, то что такое - r ? 
2) Если r - это площадь, то как мы можем её ввести, если мы хотим её сосчитать?
3) Где вывод полученной информации (writeln(r))?
4) Треугольника со сторонами c=2, f=4 и g=6 существовать не может

Предлагаю отказаться от экзотических обозначений и сделать проверку на существование треугольника, а также добавить получение данных по сторонам от пользователя:
program i_2;
var a,b,c,p,s: real;
begin
writeln('Определение площади треугольника по теореме Герона');
write('Введите стороны треугольника: ');
readln(a,b,c);
if (a + b <= c) or (b + c <= a) or (a + c <= b) then writeln ('Треугольника с
такими сторонами не существует')
else
begin
p:=(a+b+c)/2;
s:=sqrt(p*(p-a)*(p-b)*(p-c));
writeln('Площадь треугольника равна ',s:0:3)
end
end.
4,8(58 оценок)
Ответ:
dimanicich
dimanicich
29.09.2022

1.

const N = 10;

var a: array [1..N] of integer;

i, x: integer;

begin

  write('Введите x: ');

  readln(x);

  for i := 1 to N do

  begin

      a[i] := x + i - 1;

      write(a[i], ' ');

  end;

end.

2.

const N = 10;

var a: array [1..N] of integer;

i: integer;

begin

  a[1] := 1;

  a[2] := 1;

  for i := 3 to N do

  begin

      a[i] := a[i-1] + a[i-2];

  end;

  for i := 1 to N do

  begin

      write(a[i], ' ');

  end;

end.

3.

const N = 6;

var a: array [1..N] of integer;

i, x: integer;

begin

  a[N] := 1;

  for i := N-1 downto 1 do

  begin

      a[i] := 2 * a[i+1];

  end;

   

  for i := 1 to N do

  begin

      write(a[i], ' ');

  end;

end.

Объяснение:

4,4(28 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ