Паскаль
var a,b,c,d:integer; x,y:real;
begin
writeln(a);
writeln(b);
writeln(c);
readln(a);
readln(b);
readln(c);
d:=b*b-4*a*c;
if d>0 then begin
x:=(-b+sqrt(d))/(2*a);
y:=(-b-sqrt(d))/(2*a);
writeln(x,y);
end;
if d=0 then begin
x:=-b/2*a;
writeln(x);
end;
if d<0 then begin
writeln('Уравнение не имеет корней')
end;
end.
Язык : PascalABC. NET
program number1;
const
L =31;
var
a : array[1..L] of shortint;
k : shortint;
begin
randomize;
for i : byte := 1 to L do
a[i] := random(-10, 10);
k :=0;
for i : byte := 10 to 20 do
k := k + a[i];
writeln(k);
end.
1. 3 мбайт = 3 * 1024 = 3072 кбайт
2. 3072 кбайт = 3072 * 8 = 24576 кбит
3. s = v * t
t = s / v
t = 24576 / 128
t = 192 секунды
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2
<span>Ученик является элементом множества Класс
Водород входит в состав воды. Но ученик тоже входит в состав класса, поэтому в каком-то смысле понятия "Элемент множества" и "Входит в состав" равнозначны.
Среда предшествует четвергу.</span>