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

Написать программу : из трех данных чисел ( a , d и с) найьи максимальное и умньшить его на 5

👇
Ответ:
rockstar9494
rockstar9494
27.08.2022
Var  a, b, c: integer;

function max(a, b : integer) : integer;
begin 
if a>b then max:=a 
else max:=b;
end;

begin 
readln(a, b, c); 
writeln(max(max(a, b),c)-5);
end.
4,7(2 оценок)
Открыть все ответы
Ответ:
pro55555
pro55555
27.08.2022
Program z6;  Var a: array [1..10] of string; i,j,l:integer; s,g,s_2:string;Begin  write('Введите строку - '); readln(s);  l:=s.Length;  i:= 1;  j:= 1;    while i <= l do  begin    while (s[i] <> ' ') and (i <= l) do    begin      a[j]:=a[j] + s[i];      i:= i + 1;      if (i > l) then break;    end;    j:= j + 1;    i:= i + 1;  end;    i:= 1;  while (a[i] <> '') do  begin    g:=a[i];    g[1]:= (Upcase(g[1]));    s_2:= s_2 + g + ' ';    i:= i + 1;    g:='';  end;  writeln(s_2);End.
4,6(67 оценок)
Ответ:
efr47
efr47
27.08.2022

Ри́мские ци́фры — цифры, использовавшиеся древними римлянами в их непозиционной системе счисления.

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

Римские цифры появились за 500 лет до нашей эры у этрусков, которые могли заимствовать часть цифр у прото-кельтов.

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