Помогите с написанием программ в
Помогите с написанием программ в ПАСКАЛЕ
1) Если а>7, то найти сумму BC, иначе найти разность.
2) Определить квадрат числа, если оно положительное, но если отрицательное - куб.
3) Идет К-ая секунда суток. Напечатать сколько полных часов, минут и секунд прошло к данному моменту.
4) В магазине продается костюмная ткань. Ее цена В рублей за квадратный метр. Напишите программу, которая подсчитает и выведет на экран стоимость куска этой ткани, длиной Х метров и шириной 80 см.
More Questions From This User See All
Answers & Comments
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.
var a,b:integer;
begin
read(a);
if a>0 then b:=sqr(a)
else
b:=a*a*a;
writeln(b);
end.
Begin
Writen('введите число х=');
Readln(x);
If x>0 then y:=x*x
Else y:=x*x*x;
Writeln ('ответ' , y);
End.