1. Информатика
  2. Даны два числа а и в. увеличить

Даны два числа а и в. увеличить а в 5 раз, ели оно меньше в. если в меньше а, то заменить в на значение а, а а на значение в. напишите программу на pascal abc .

pozitivtv2905 pozitivtv2905    3   03.10.2019 17:40    0

Ответы
Чеширский1 Чеширский1  09.10.2020 15:03

var a,b,t:longint;

begin

readln(a,b);

if(a<b) then a:=a*5 else if (b<a) then begin t:=a; a:=b; b:=t; end;

writeln('a = ',a);

writeln('b = ', b);

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
gelya12121 gelya12121  16.03.2022 21:42
1) Напишите программу, определяющую произведение всех двухзначных чисел кратных 4 и 3. 2) Дана строка, содержащая английский текст. Вывести все согласные буквы, входящие...
amir158 amir158  16.03.2022 21:37
2. Клетки грибор делится на четыре части каждые пять минут. Определите, какое количество клеток будет через N минут. Напишите пика, который будет определять количество...
vvvvNikavvv vvvvNikavvv  16.03.2022 20:45
Решите эти задания по информатике там не очень сложно люблю вас...
lovemopeio lovemopeio  16.03.2022 19:50
4. Напишите программный код для следующей задачи: (46) Даны 3 числа. Нужно найти наименьшее из них и вывести значение на результат. Составьте программу вложенных условий...
ома7 ома7  16.03.2022 19:16
2. Приводятся имена пяти учеников и информация об их оценках. Отсортируйте список в пс убывания их оценок и напишите код программы. Например: Айгуль 100, Мурат 93, Гульнур...
a27072005n a27072005n  16.03.2022 18:53
Помгитеее тема программирование линейных алгоритмов...
алпплла алпплла  16.03.2022 18:36
Чему будут равны значения А и В после завершения алгоритма?...
liana200671 liana200671  16.03.2022 18:13
2 простых задания по информатике формата ОГЭ-ЕГЭ...
doinak88 doinak88  16.03.2022 18:06
Program z_9; var i, s: integer;a: array [1..50] of integer;begins:=0;for i:=1 to 50 do begina[i] := random(150, 200);if a[i] =170 then s:=s+1;end;writeln(s, ученика(-ов)...
AgeraClassik AgeraClassik  16.03.2022 18:01
3. Задание 3.14. Программа для исполнителя Рисователь 1. Самостоятельно разработайте для исполнителя Рисователь про- грамму рисования одного из следующих объектов. 4...

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