Var
a,b,c,d:real;
begin
Write('Введите коэффициенты уравнения a,b,c: ');
Readln(a,b,c);
d:=b*b-4*a*c;
if d<0 then Writeln('Корней нет')
else if d=0 then Writeln('Один корень')
else Writeln('Два корня')
end.
ПЛАНШЕТ
Ответ :
<span>2) эл. устройство с сенсорным экраном</span>
Dim x As real
Dim i As integer
INPUT x
FOR i=1 TO 30
x=x+(x*0.05)
NEXT i
PRINT x
END
П.С. не большая поправка верхнего решения, спасибо автору верхнего поста
uses crt;
var
i, k: integer;
a,k2: real;
mas, ma: array [1..10] of integer;
begin
randomize;
write (' razmer massiva = '); readln (k);
for i:=1 to k do
mas[i]:= random (10);
for i:=1 to k do
write (mas[i],' ');
for i:=1 to k do
if i mod 2<>0 then a:= mas[i]+a;
writeln;
if k mod 2<> 0 then begin k:=k+1; k2:= k/2; end else k2:= k/2;
a:= a/k2;
write ('sredn znach = ',a);
readkey;
end.
Ответ:
dni = [input() for i in range(7)]
print(*(sorted(dni)))
Объяснение:
вводятся 7 названий дней и выводятся в алфавитном порядке