100 БАЛЛОВ! ПРОГРАММЫ В ПАСКАЛЕ Пожалуйста, не отвечайте наугад, это повлияет ** мою...

Question

100 БАЛЛОВ! ПРОГРАММЫ В ПАСКАЛЕ Пожалуйста, не отвечайте наугад, это повлияет на мою триместровую оценку, в случае, если она не устроит - родители оставят меня на очередной год без телефона. Вы очень мне поможете, я даю максимальные баллы, могу написать второй вопрос и дать еще 100 тому, кто ответит верно. НЕВЕРНО - ЖАЛОБА Две программы на Паскале: Первая - которая подсчитывает сумму, разность, частное и произведение двух чисел. Вторая - высчитывающая объем цилиндра (формула объем=пи*R^2*h), значения радиуса и высоты вводятся с клавиатуры, константа задаётся через раздел констант. Ответ в формате скринов двух программ, написанных в Паскале программы.

Answer 1

Ответ: Как-то так))) Надеюсь, родители купят тебе

var

a, b: integer;

begin

clrscr;

write('a='); read(a);

write('b='); readln(b);

writeln(a,'-',b, '=', a-b);

write(a,'+',b, '=', a+b);

write(a,'*',b, '=', a*b);

write(a,'/',b, '=', a/b);

readkey;

end.

2)

var

r,h:integer;

v:real;

procedure Vcil(r,h:integer;var v:real);

begin

v:=pi*sqr(r)*h;

end;

begin

write('Vvedite Radius:');

readln(r);

write('Vvedite H:');

readln(h);

Vcil(r,h,v);

writeln('V=',v);

end.

---

Comments

нужно в формате скрина

Answer 2

var

a, b: integer;

begin

clrscr;

write(*a=); read(a);

write(*b=); readln(b);

readkey;

end.