Помогите с написанием программ в Помогите с написанием программ в ПАСКАЛЕ1) Если а>7, то...

Question

Помогите с написанием программ в

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


1) Если а>7, то найти сумму BC, иначе найти разность.

2) Определить квадрат числа, если оно положительное, но если отрицательное - куб.

3) Идет К-ая секунда суток. Напечатать сколько полных часов, минут и секунд прошло к данному моменту.

4) В магазине продается костюмная ткань. Ее цена В рублей за квадратный метр. Напишите программу, которая подсчитает и выведет на экран стоимость куска этой ткани, длиной Х метров и шириной 80 см.

Comments

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

---

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

Answer 1

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.

Comments

Можешь остальные сделать? Срочно нужно просто. Я все свои баллы потратил.

---

2.program z;
var a,b:integer;
begin
read(a);
if a>0 then b:=sqr(a)
else
b:=a*a*a;
writeln(b);
end.

Answer 2

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

Comments

Как дописать здесь?

---

Просто пиши комментариями. Пойму.

---

H:=

---

H:=s div 3600; min:=(s mod 3600) div 60; sec:=(s mod 3600) mod 60;

---

H часов,min минут, sec секунд

---

Sorrу замени s на k

---

Спасибо

---

Удачи!