Program first;
var x : Integer;
begin
for x := 1 to 10 do begin
write(x);
if x mod 2 = 0 then
writeln('-четное')
else writeln('-нечетное');
end;
end.
Program lyg;
var
all,last,seven: real;
ii,day: integer;
begin
last := 10;
all := 10;
day := 0;
for ii := 1 to 10 do
begin
last := last+(last*0.1);
all := all+last;
if ii=7 then
seven := all;
writeln('day ',ii,': ',round(last));
if day = 0 then
if all > 100 then
day := ii;
end;
writeln('Overall distance of 7 days: ',seven);
writeln('Distance 100km is reached at ',day,' day');
<span>end.</span>
1) 110011; 63; 51; 33
2) 11010101; 325; 213; D5
3) 1001010010; 1122; 594; 252
4) 1011111; 137; 95; 5F
5) 11101; 35; 29; 1D
6) 10010110; 226; 150; 96
7) 101011001; 531; 345; 159
8) 11010110; 326; 214; D6
Все числа от 0 до миллиона (1000^2) будут целыми, так как это любые числа