Var
i:integer;
s,t:string;
begin
writeln ('Введите строку');
readln(s);
i:=2;
while i<=length(s) do
begin
t:=t+s[i];
i:=i+2;
end;
writeln(t);
<span>end.</span>
Var x:array [1..10] of integer; i:integer;
begin
for i:=1 to 10 do begin
x[i]:=i*2;
write(x[i],' ');
end;
end.
1)
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
writeln('D=',b*b-4*a*c);
end.
2)
Program n1;
begin
writeln('площадь: ',5.8*5.8*pi-3.8*3.8*pi);
end.
23мб - 23352кб
512бит - 64байи
7гб- 7516192768байт
36кб - 36864байт