1. Информатика
  2. Даны числа (a, b). Если

Даны числа (a, b). Если a>b, то наибольшее число заменить его квадратом, меньшее заменить суммой данных чисел, иначе каждое число уменьшить на 10 (дополнительные переменные, операторные скобки) Нужна огромное, если ❤

maksim3452 maksim3452    3   15.12.2021 06:25    0

Ответы
polilol2018 polilol2018  05.02.2022 09:02

Объяснение:

var a,b:real;

begin

readln (a,b);

If a>b then begin

b:=sqr(a);

a:=b+a;

end; else begin a:=a-10;

b:=b-10;

end;

writеln (a,b);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
11111222А 11111222А  22.03.2020 05:13
Сколько информации содержит сообщение, что при бросании монеты выпала решка? ​...
ponomarjovakse ponomarjovakse  22.03.2020 05:28
Проблема с проводником на windows 7, подскажите что делать, открываю панель управления открывается проводник и зависает тоже самое с Компьютер...
Miheevf Miheevf  26.09.2019 22:01
Имеется ноутбук hp pavilion g6.в диспетчере устройств во вкладке видеоадаптеры стоят 2 стандартных vga графических адаптера,один работает а на втором восклицательный знак.как...
premium79 premium79  26.09.2019 22:01
Выпишите натуральные целые числа, принадлежащие следующим числовым промежукам: а)(1011*2; 10001*2) б)(768*9; 1028*9) в)(1001*2; 101011*2)...
ruevtop ruevtop  26.09.2019 22:01
Решите на паскале на if case.если введённое число положительное, то вычесть из него 5, если равно нулю, то прибавить 20, во всех остальных случаях разделить на 6...
yan2005byp06ne2 yan2005byp06ne2  26.09.2019 22:01
Program isperfectnumber(input,output); var i, n, s: integer; begin write( n = ); readln(n); s : = 0; for i : = 1 to n do if n mod i = 0 then s : = s + i ; writeln if s - n...
zizi131 zizi131  10.12.2020 14:27
Некоторый алгоритм из одной цепочки символов получает новую цепочку следующим образом. Сначала вычисляется длина исходной цепочки символов, если она чётна, то в середину цепочки...
aflapoid99911 aflapoid99911  10.12.2020 14:27
Написать программу на языке Pascal Пусть даны целые числа x1, x2, x3, …, x55. Вычислите величину: x1(x2 + x3)(x4 + x5 + x6)…(x46 + x47 + … + x55)....
linmiss linmiss  10.12.2020 14:26
1)какие сервисы самые популярные? 2)как называется Казахстанский почтовый сервис?...
Maria2006qwerty Maria2006qwerty  16.04.2021 10:47
Скласти програму знаходження значень функції у ,значення якої залежить від значень х. Якщо х 0 то y=3*x+2 і якщо x 0 то y=3*x-2...

Популярные вопросы