составить программы

[Liubov]

1. Составить программу, которая сообщает о своих возможностях.(Введите номер необходимой операции: 1-сумма, 2-разность, 3-произвеление, 4-частное.).
2. Напишите программу табулирования функции y=-x^2-3x+4 от -2 до 2 с шагом 0.5.
3. Найти сумму чисел от 18 до 49 и вывести результат на экран.

[Вадим Мошев]

Марина Цветаева.
ИЗ СКАЗКИ - В СКАЗКУ

Все твое: тоска по чуду,
Вся тоска апрельских дней,
Все, что так тянулось к небу,-
Но разумности не требуй.
Я до смерти буду
Девочкой, хотя твоей.

Милый, в этот вечер зимний
Будь, как маленький, со мной.
Удивляться не мешай мне,
Будь, как мальчик, в страшной тайне
И остаться помоги мне
Девочкой, хотя женой.

[Mad_Cat]

1)

var a,b:real;
c:char;
begin
write('a=');readln(a);
write('b=');readln(b);
writeln('операции ');
writeln('1-сумма, 2-разность, 3-произвеление, 4-частное');
readln(c);
writeln('Результат:');
case c of
'1':writeln(a+b);
'2':writeln(a-b);
'3':writeln(a*b);
'4':if b<>0 then writeln(a/b) else writeln('Деление на 0');
end;
end.

2

var x:real;
begin
x:=-2;
while x<2.25 do
begin
writeln('x= ',x:8:1,'y= ',x*x-3*x+4:8:2);
x:=x+0.5;
end;
end.

3

var s:real;
i:integer;
begin
s:=0;
for i:=49 downto 18 do
s:=s+i;
writeln('s=',s);
end.

ENJOY!!!

[Вадим Мошев]

Mad_Cat
Хм. Тебе до сих пор спасибо не сказали...

[Mad_Cat]

Тебе до сих пор спасибо не сказали...

та я привыкший

[Liubov]

спасибо большое*