Регистрация
maxmaxibon11
19.05.2022 02:26
Информатика
Есть ответ 👍

Помагите excel второе задание

195
287
Посмотреть ответы 1

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

eksergeeva5
eksergeeva5
4,6(50 оценок)
Uses crt; procedure disk(a,b,c: integer; var d: real); begin d: =b*b-4*a*c; end; var a,b,c: integer; k: real; begin clrscr; writeln ('vvedite koef. a,b,c'); readln(a,b,c); disk(a,b,c,k); writeln('disk ',k); readln; end.

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