Написати программу в турбо паскалі! ! дано два дійсних числа. менше з них замінити півсумою цих чисел,а більше - їх добутком!
Robincona
2
21.03.2019 16:30
1
Другие вопросы по теме Информатика
Westix
15.04.2020 17:16
IrinaCipher
01.07.2019 10:30
llovepet20
17.03.2019 09:23
lunnui
17.03.2019 09:24
ulya061
17.03.2019 09:24
BoDuChKa
26.09.2019 22:30
nuriksabirjan
26.09.2019 22:30
vfhbz2000
26.09.2019 22:30
rustikkhusnutdi
26.09.2019 22:30
Популярные вопросы
- Что такое зачин? от чьего имени звучит зачин...
2 - Подтвердите пословицей что материально ответственные лица должны...
1 - Ядвоеточие после обобщающего слова перед однородными членами в тайге...
1 - Чтобы перевести значение температуры по шкале цельсия в шкалу фаренгейта...
1 - Допущена ошибка в употреблении формы числительного в предложениях...
1 - Причины и планы сторон(участников) второй мировой войны?...
3 - Звуки окружают нас повсюду но не каждый звук является музыкальным...
2 - Нужно 2 человека в пример. либо герой, либо живший когда-то или...
3 - Содного участка собрали 180 килограмм помидоров,а с другого—в 2...
1 - Заполните пропуски величавы тут закаты ( сл. корешкова, муз.в. болобонкина....
1
var a, b, s, p:real;
begin
readln(a,b);
s:=(a+b)/2;
p:=a*b;
if a<b
then begin
a:=s; b:=p;
end
else begin
a:=p; b:=s;
end;
writeln('a = ',a,' b = ',b);
end.