100 БАЛЛОВ! ПРОГРАММЫ В ПАСКАЛЕ
Пожалуйста, не отвечайте наугад, это повлияет на мою триместровую оценку, в случае, если она не устроит - родители оставят меня на очередной год без телефона. Вы очень мне поможете, я даю максимальные баллы, могу написать второй вопрос и дать еще 100 тому, кто ответит верно.
НЕВЕРНО - ЖАЛОБА
Две программы на Паскале:
Первая - которая подсчитывает сумму, разность, частное и произведение двух чисел.
Вторая - высчитывающая объем цилиндра (формула объем=пи*R^2*h), значения радиуса и высоты вводятся с клавиатуры, константа задаётся через раздел констант.
Ответ в формате скринов двух программ, написанных в Паскале программы.
Пожалуйста, не отвечайте наугад, это повлияет на мою триместровую оценку, в случае, если она не устроит - родители оставят меня на очередной год без телефона. Вы очень мне поможете, я даю максимальные баллы, могу написать второй вопрос и дать еще 100 тому, кто ответит верно.
НЕВЕРНО - ЖАЛОБА
Две программы на Паскале:
Первая - которая подсчитывает сумму, разность, частное и произведение двух чисел.
Вторая - высчитывающая объем цилиндра (формула объем=пи*R^2*h), значения радиуса и высоты вводятся с клавиатуры, константа задаётся через раздел констант.
Ответ в формате скринов двух программ, написанных в Паскале программы.
More Questions From This User See All
Answers & Comments
Ответ: Как-то так))) Надеюсь, родители купят тебе
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.