Задание #1
var a:integer;
begin
a:=10;
while a<=150 do
begin
write (a,' ');
a:=a+10
end;
writeln;
a:=200;
repeat
write (a,' ');
a:=a-10
until a<100
end.
Задание #2
var a,b:integer;
begin
readln(a,b);
if a>b then write (a) else write (b)
end.
Задания #3
var a,b,c:integer;
begin
readln(a,b,c);
if (a>b) and (a>c) then write (a,' ',b+c);
if (b>a) and (b>c) then write (b,' ',a+c);
if (c>a) and (c>b) then write (c,' ',a+b)
end.
Может быть так:
1тепловоз отцепляет свои 2 вагона.Затем 1тепловоз заезжает с 1 вагоном в тупик. Оставшиеся вагоны 2 тепловоз толкает вперед, давая 1тепловозу выехать позади него. Потом 2 тепловоз сдает назад, завозит 2 вагона 1-го тепловоза в тупик и едет вперед. Когда 2 тепловоз проедет, 1тепловоз возвращается и забирает свои 2 вагона
Дано: N=32 ; K=1024
Решение:
1024*5= 5120 бит=640 байт
Var
S:real;
n:integer;
Begin
S:=0;
Write('n = ');
ReadLn(n);
For n:= 1 to n do
S:=S+n/(n+1);
WriteLn('S = ',S)
End.
I 1=8=8*1024*8=65536 бит. t= I*V. t= 65536*2048=134217728 сек. I 2=134217728*512=6.871947674 в степени 10. и теперь это поделить на 8=8589934592 байта. Ответ: I 2=8589934592 байта