вас быстрее.перенести выражение в pascal

nastaklimenkofll nastaklimenkofll    2   05.12.2019 16:11    0

Ответы
DoIIIuPak18 DoIIIuPak18  10.10.2020 18:39

№1

Program anton4nk;

uses crt;

var a,b,c:real;

begin

clrscr;

writeln(' Введите в последовательности A, B, C');

readln(a,b,c);

writeln(b+sqrt(sqr(b)+4*a*c)/2*a);

end.

№2

Program anton4nk;

uses crt;

var a,b,c,d:real;

begin

clrscr;

writeln('Введите в последовательности A, B, C, D');

readln(a,b,c,d);

writeln((a/c)*(b/d)-(a*b-c)/(c*d));

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика