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

Дано 2 числа
необходимо большее из чисел утроить (х3) , а в случае равенства чисел выдать сообщение "числа равны"​

👇
Ответ:
Дамир2207
Дамир2207
12.10.2020

//pascal

var A,B : integer;

begin

 readln(A, B);

 if A = B then

   writeln('Числа равны.')

 else

 begin

   if(A > B) then

     A *= 3

   else

     B *= 3;

   writeln(A, ' ', B);

  end;

end.

Объяснение:

4,8(68 оценок)
Открыть все ответы
Ответ:
hurremsultan30
hurremsultan30
12.10.2020
I,k:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 13 do
begin
a[i]:=random(41)+10;
write(a[i],' ');
end;
writeln;
writeln('Массив после удаления 10-го элемента:');
for i:=10 to 12 do
a[i]:=a[i+1];
for i:=1 to 12 do
write(a[i],' ');
writeln;
writeln('Массив после удаления минимального элемента: ');
k:=1;
for i:=1 to 12 do
if a[i]<a[k] then k:=i;
for i:=k to 11 do
a[i]:=a[i+1];
for i:=1 to 11 do
write(a[i],' ');
writeln;
end.

var
a:array [1..7] of char;
i,k:integer;
begin
writeln('Введите массив:');
for i:=1 to 7 do
readln(a[i]);
writeln('Массив');
for i:=1 to 7 do
write(a[i],' ');
writeln;
writeln('Массив после удаления максимального элемента: ');
k:=1;
for i:=1 to 7 do
if a[i]>a[k] then k:=i;
for i:=k to 6 do
a[i]:=a[i+1];
for i:=1 to 11 do
write(a[i],' ');
writeln;
end.
4,5(86 оценок)
Ответ:
annaegorova4
annaegorova4
12.10.2020

Ло́гика (др.-греч. λογική — «наука о правильном мышлении к рассуждению» от др.-греч. λόγος — «логос», «рассуждение», «мысль», «разум», «смысл») — раздел философии, нормативная наука о формах, методах и законах интеллектуальной познавательной деятельности, формализуемых на логическом языке.

Электронная таблица (англ. spreadsheet)— компьютерная программа, позволяющая проводить вычисления с данными, представленными в виде двумерных массивов, имитирующих бумажные таблицы. Некоторые программы организуют данные в «листы», предлагая, таким образом, третье измерение.

1101*101=1000001

Объяснение:

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