Даны два числа. меньшее из них заменить квадратом, а большее умножьте на 10
koblina2015
3
19.05.2019 07:20
5
Другие вопросы по теме Информатика
massenia
03.09.2020 21:45
Оксана1970
03.09.2020 21:45
marsidd
03.09.2020 21:45
НикитаДикий
03.09.2020 21:46
danilgrekov20
17.05.2020 08:04
5Vlad2851
17.05.2020 08:05
miras39
17.05.2020 08:05
vipvikaviktoria
07.10.2019 02:30
shepa174
14.01.2021 18:02
jcyueurur
14.01.2021 18:04
Популярные вопросы
- А6. Укажи верное равенство. А) 86 ц 30кг = 8т 630кг Б) 86ц 30кг = 8т 63кг В) 86ц...
2 - С каких реакций можно получить полихлорвинил, располагая следующими реактивами:...
2 - Оцени правильность утверждений. А. В основе макроэволюции лежат микроэволюционные...
2 - Обчисліть масу натрій карбонату, який утворюється при пропусканні карбон (IV) оксиду...
1 - надо!! 1) Составьте формулы оснований: а) феррум(ІІІ) гидроксид б)калий гидроксид...
3 - Сұрақтарға жазбаша жауап беріңдер. 1.Қандай шетелдік ақын-жазушыларды білесіңдер?2.Джек...
1 - Сколько мальчиков и сколько девочек учится в классе, если мальчиков на 4 больше,...
1 - Из 30 учащихся класса в кружках занимается 2/5 всех учащихся Сколько учеников занимаются...
1 - алгебра!1) а+7 с+72) -а/5 -с/53)-9а -9с4)а+4 с+2...
3 - С какой скоростью должен ехать автомобиль, чтобы проехать 68 км за 0,8ч...
3
var
a, b:integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
if a < b then
begin
a := a * a;
b := b * 10;
end
else
begin
b := b * b;
a := a * 10;
end;
writeln('a = ', a);
writeln('b = ', b);
end.