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

Разработать программу для перевода целых чисел из десятичной системы счисления в троичную и пятеричную. перевод оформить в виде подпрограмм.

👇
Ответ:
romanvailev15
romanvailev15
13.03.2023
Function to_base(n: integer; base: integer): integer;
begin
  if n = 0 then
    to_base := 0
  else
    to_base := (n mod base) + 10 * to_base(n div base, base);
end;

var
  n: integer;
begin
  readln(n);
  writeln(to_base(n, 3));
  writeln(to_base(n, 5));
end.
4,8(44 оценок)
Открыть все ответы
Ответ:
minimym22
minimym22
13.03.2023

Объяснение:

Компилятор (цомпілер; цомпілінг программ — компиляциялаушы программа) — 1) жоғарғы деңгейлі программалау тілінде жазылған алғашқы программаны машиналық тілге (алгоритмдік тілдер, түсіндіргіш, аударғыш) түрлендіруді орындайтын компьютердің жалпы математикалық жасақтамасының құрамды бөлігі. Компилятор екі бөліктен тұрады: бірінші бөлігі — программалаушының программаны жазуы үшін пайдаланылатын алғашқы тіл, екіншісі — объектілік программаны машиналық тілде жазатын аударғыш. Қандай да бір жоғары деңгейлі тіл үшін к.

4,4(34 оценок)
Ответ:
нануша456
нануша456
13.03.2023

Блок-схемы - во вложениях

 

1.

Program Irina09Gross1;
const n=10;
var a,b,c,p,s: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
  writeln('Введите стороны треугольника');
    write('Введите а');
    readln(a);
    write('Введите b');
    readln(b);
    write('Введите c');
    readln(c);
  p:=(a+b+C)/2;
  S := sqrt(p*(p-a)*(p-b)*(p-c));
  writeln('Площадь треугольника равна ',s);
end.

 

2.

Program Irina09Gross2;
const n=10;
var a,b,h,v,s,r: real;
  begin
  writeln('*** Alphaues is thinking... ***');
  writeln('***          OK!            ***');
  writeln();
    write('Введите длину основания ');
    readln(a);
    write('Введите ширину основания ');
    readln(b);
    write('Введите высоту параллелепипеда ');
    readln(h);
  s := 2*(a*b+b*h+h*a);
  v := a*b*h;
  r := 4*(a+b+h);
  writeln('Объём равен ',v);
  writeln('Площадь полной поверхности равна ',s);
  writeln('Сумма рёбер равна ',r);
end.


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