Помогите с написанием программ в Помогите с написанием программ в ПАСКАЛЕ

+ 0 -

Nurguntomski

22 февр. 2014 г., 0:11:46 (10 лет назад)

1. program z;
var a,B,C,n:integer;
begin
writeln('Введите a,B,C'); read(a,B,C);
if a>7 then n:=B+C
else
n:=B-C;
writeln(n);
end.

+ 0 -

Vik341

22 февр. 2014 г., 1:59:09 (10 лет назад)

Var x, y: real;
Begin
Writen('введите число х=');
Readln(x);
If x>0 then y:=x*x 
Else y:=x*x*x;
Writeln ('ответ' , y);
End.

+ 0 -

Pioko

22 февр. 2014 г., 3:45:26 (10 лет назад)

Хоть-бы ты мне помог, аноним, который сейчас пишет что-то.

+ 0 -

Nadya891

22 февр. 2014 г., 6:05:27 (10 лет назад)

4.program z;
const sh=80;
var a,b,i,s:integer;
begin
writeln('Введите длину ткани'); read(a);
writeln('Введите стоимость ткани за один м'); read(b);
s:=a*sh;
i:=s*b;
writeln(i, 'руб');
end.