Сделать программу на pascal, если a> b, то найти y=a/b, иначе найти y=a*b
maximruba
1
22.08.2019 20:20
0
Другие вопросы по теме Информатика
Маргарин11
15.12.2020 14:27
Dimka14228
15.12.2020 14:28
kerimok607
22.12.2020 23:23
Мальвина01
30.06.2020 11:57
kokocuk01
30.06.2020 11:55
aleks201610
30.06.2020 11:19
Vilhctein1989
30.06.2020 11:03
Tanecka2501
30.06.2020 23:11
DariaBlack777
30.06.2020 11:11
Популярные вопросы
- На расстоянии a=16см от центра равномерного заряженной сферы r=11мм...
2 - Найдите х из равенства: а) -х=8,5; б) -х=-4,2...
2 - 18 г глюкозаны ашытканда түзілген спирттің массасын есептеңдер? пб...
2 - Дополните утверждение. 1)обширные участки поверхности земли с небольшими...
1 - Разбить слова по столбикам.1действующее лицо2глагол-связка3глагол...
1 - Які країни мали найбільші за площею та кількістю населення колоніальні...
2 - Если увеличить длину стороны квадрата на 7 см, то площад квадрата...
2 - Дайте характеристику понятиям работо усталость, утомление, переутомлениебиология...
2 - 20 дайте развернутый ответ на вопрос: «какое место в вашей жизни занимает...
2 - Найди высоту прямоугольного пнараллепипеда. если его обьём равен 240см...
3
var a,b,y:real;
begin
readln(a,b);
if a>b then y:=a/b else y:=a*b;
writeln(y);
end.