Регистрация
shultz061
31.12.2020 05:51
Информатика
Есть ответ 👍

У КОГО ЕСТЬ ПАСКАЛЬ!

Дана программа:

Program Primer;

Var

A,result : real;

Begin

Writeln('Введите значения переменной A');

Write('A=');

Readln(A);

Result := sqr((3+A)*5);

Writeln ('sqr((3+A)*5)', result:8:0);

Readln;

End.

Запусти Паскаль, введи данную программу, получи результат, если A=1.

138
431
Посмотреть ответы 2

Ответы на вопрос:

Dragonhaadi
Dragonhaadi
4,4(46 оценок)

ответ:  sqr((3+A)*5)       400

Ангел89178931527
Ангел89178931527
4,8(3 оценок)
На  бейсике  моем  любимом dim  a1  as  integer,  a2 as integer,  a3 as integer,  a4 as integer,  a5 as integer dim a6 as integer, sred  as  double, sumquad as double, raznsqrt as double print "введите 1 число";   input a1 print "введите 2 число"; input a2 print "введите 3 число"; input a3 print "введите 4 число"; input a4 print "введите 5 число"; input a5 print "введите 6 число"; input a6 sred  = (a1+a2+a3+a4+a5+a6) / 6 print  "среднее = ",  sred sumquad = a1*a1+a2*a2+a3*a3+a4*a4+a5*a5+a6*a6 print  "сумма квадратов = ",  sumquad raznsqrt = sqrt(a1) - sqrt(a2)  - sqrt(a3) -  sqrt(a4) -  sqrt(a5) -  sqrt(a6)  print  "разность корней равна",  raznsqrt end 

Популярно: Информатика