ПОМОГИТЕ ПОЖАААЛУСТА! Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае. Составить програмуданы 2 числа Х , У мен...

- 16 January 2013
- Автор: Бибинур
ПОМОГИТЕ ПОЖАААЛУСТА!
Даны 2 действительных числа a,b. Вывести первое, если оно больше второго и оба числа в противном случае. Составить програму
даны 2 числа Х , У меньшее из них заменить иполусуммой , большее -удвоенным произведением этих чисел. составить программу
- 16 January 2013
- Ответ оставил: Lukmore
1)
uses crt;
var
a,b:integer;
begin
clrscr;
read(a,b);
if a>b then write(a) else write(a,';',b);
end.

2)
uses crt;
var
x,y,x1,y1:real;
begin
read(x,y);
x1:=x; y1:=y;
if x<y then begin x:=(x1+y1)*(1/2); y:=(x1*y1)*2; end else begin y:=(x1+y1)*(1/2); x:=(x1*y1)*2; end;
write('x=',x,',','y=',y);
end.

0

- НЕ НАШЛИ ОТВЕТ?
Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
На сегодняшний день (26.10.2024) наш сайт содержит 244792 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

Найти другие ответы
Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

Ответить на вопрос

Последние опубликованные вопросы

Написание исследования по теме "Сематическая классификация английских заимствований в русском языке" в текстовом формате с проверкой на антиплагиат (не менее двух вордовских страниц) Написание исследования по теме "Сематическая классификация английских заимствований в немецком языке" в текстовом формате с проверкой на антиплагиат (не менее одной страницы в Word) 2 к6выу5у4в5ыу3ыцц Задание 2.7 Передайте следующие предложения в Passive Voice, обращая внимание на место предлога. E.g. We often speak about her. — She is often spoken about. 1. Bessie's father gave her a complete s... When and where are you going to have the celebration In your country at what times are the shops generally open? Почему сокращается численность Казахстанских козерогов? Why did people stay in their homes as much as possible? A. The weather was cold B. There were many thievesC. There were police officers Use of English/ Task 4. Read and choose. 1. I enjoy to swim/ swimming. 2. I want to eat/ eating. 3. I hate to work/working on Sunday. 4. I want to learn/ learning Spanish. помогить, соч последнее ... B) Write sentences use Past Simple and Past Continuous 1)When/Alice/wake up /it/rain 2) Her/mother/make/breakfast/ when /she/come /home Topic 2. Write an article to a newspaper (120-150 words) describing the last Sport Competition where you or your friends participated (in a country or abroad) using Past tenses. Try to mention thes... сүт қоректілердің не жатады

1)uses crt;vara,b:integer;beginclrscr;read(a,b);if a>b then write(a) else write(a,';',b);end. 2)uses crt;varx,y,x1,y1:real;beginread(x,y);x1:=x; y1:=y;if x<y then begin x:=(x1+y1)*(1/2); y:=(x1*y1)*2; end else begin y:=(x1+y1)*(1/2); x:=(x1*y1)*2; end;write('x=',x,',','y=',y);end.

Последние опубликованные вопросы

1)
uses crt;
var
a,b:integer;
begin
clrscr;
read(a,b);
if a>b then write(a) else write(a,';',b);
end.

2)
uses crt;
var
x,y,x1,y1:real;
begin
read(x,y);
x1:=x; y1:=y;
if x<y then begin x:=(x1+y1)(1/2); y:=(x1y1)2; end else begin y:=(x1+y1)(1/2); x:=(x1y1)2; end;
write('x=',x,',','y=',y);
end.