Program korni;
uses crt;
var
a,b,c:integer;
x1,x2:real;
begin
writeln('введите коэффициент А, B и С');
readln(a,b,c);
x1:=sqr(b)-4*a*c;
x2:=(b*(-1)-sqrt(x1))/a*2;
x1:=(b*(-1)+sqrt(x1))/a*2;
writeln('корни уравнения: x1=',x1,',x2=',x2);
end.
Не обязательно
пользователь сам подключает внешние накопители, если ему не хватает встроенной памяти компьютера)
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadAllText('mas102.txt').ToWords;
var s:=BigInteger(0);
foreach var w in a do s+=w.ToBigInteger;
Writeln(s mod 104);
end.
<u>Результат</u>
20
Клавиатура-это устройство ввода,монитор-это устройство вывода,ПЗУ-это винчестер
Масимально сдали все 4:
Согласно четвертому правилу если сдал 4 то 1 тоже сдал. Согласно первому правилу если 1 сдал, то и 2 сдал. Согласно 2 правилу если 2 сдал то и 3 сдал.