Darima111
13.06.2022 04:39

Написать программы на Паскале подробно 1. Написать с использованием функции с параметрами ввода значений и вывода (возврата) результата из функции программу для ввода пар чисел, выбора максимального значения из каждой пары, расчета суммы максимальных значений. На экран вывести список выбранных значений и сумму.
2. Написать с использованием процедуры с параметрами ввода значений и вывода (возврата) результата из процедуры программу подсчета количества четных и нечетных цифр 10-значного натурального числа.
3. Написать с использованием процедуры без явного ввода значений и вывода (возврата) результата из процедуры программу определения, является ли треугольник прямоугольным по введенным трем значениям его сторон.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
АнгелокN1
28.06.2020 10:49
1)Основные составляющие персонального компьюетра: системный блок и устройства ввода-вывода информации. К устройствам ввода-вывода информации относятся клавиатура, мышь, монитор, принтер, сканер, видеокамера, динамики и прочие подобные устройства.Системный блок состоит из обязательных устройств: материнская плата, жесткий диск, процессор, оперативная память, блок питания, видеокарта, системный динамик. К необязательным составляющим системного блока можно отнести звуковую карту, сетевую карту, floppy, CD и DWD-приводы, картридеры и прочие навороты.
0,0(0 оценок)
Ответ:
diiiaanf101
28.04.2021 09:04
//Pascal
//Первый вариант
var a, b:integer;
BEGIN
  write('Введите первое число = '); readln(a);
  write('Введите второе число = '); readln(b);
  writeln(a-(-b));
END.

//---------------------------------------
//Второй вариант
function recSumBits(a, b:integer):integer;
var o1, o2: integer;
begin
  if b = 0 then recSumBits := a
  else
  begin
    o1 := a xor b;
    o2 := (a and b) shl 1;
    recSumBits := recSumBits(o1, o2);
  end;
end;

var a, b: integer;
BEGIN
  write('Введите первое число = '); readln(a);
  write('Введите второе число = '); readln(b);
  writeln(recSumBits(a, b));
  readln;
END.

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