27.10.2009, 20:00
|
#2 (permalink)
|
|
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
Сообщение от Максимус
1. Напишите программу вычисления функции S. Значения величин a, b, x задаются.
|
Боюсь, что без знания функции S проблема неразрешима.
Цитата:
|
2. Даны действительные числа а, b. Удвоить эти числа, если а<b, и возвести их в квадрат в противном случае.
|
VAR
a,b:REAL;
BEGIN
Write('a= '); ReadLn(a);
Write('b= '); ReadLn(b);
IF a<b THEN
BEGIN
a:=a*2;
b:=b*2;
END ELSE
BEGIN
a:=SQR(a);
b:=SQR(b);
END;
WriteLn('a= ',a);
WriteLn('b= ',b);
ReadLn;
END.
Последний раз редактировалось Vladimir_S; 27.10.2009 в 21:26
Причина: Небольшая косметика
|
|
|