• Нужно создать программу в ABC Pascal
    Задача 1. Дана длина ребра куба а. Найдите объём куба V=a3 и площадь его поверхности S=6a2
    Задача 2.Даны 2 числа не равные нулю. Найдите сумму, разность и произведение их модулей.

Ответы 1

  • var a,V,S:integer;Beginwriteln('Enter A:');readln(a);V:=a*3;S:=6*2*a;writeln('V=',V,'; S=',S,';');end.var a,b,sum,dob,raz:integer;Beginwriteln('Enter A:');readln(a);writeln('Enter B:');readln(b);sum:=abs(a)+abs(b);raz:=abs(a)-abs(b);dob:=abs(a)*abs(b);writeln('Summa=',sum,'; Raznost=',raz,'; Dobutok=',dob,';');end.
    • Автор:

      liam
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years