0,00025 кбайт = 0,25 байт = 2 бит
деревянное- состав дерево,действия вращается, обот деревянный, крутится медленно
Uses Crt;
var
i:integer;
a:array[1..10] of integer;
count: integer;
Begin
ClrScr;
for i:=1 to 10 do begin
a[i]:=i*3;
if i mod 2 = 0 then a[i]:= a[i]*(-1);
write(a[i],' ');
end;
<span>End.</span>
Если ты сдаешь эту задачу на сайт acmu.ru или acmp.ru:
var a, b: longint;
begin
assign(input, 'input.txt'); reset(input);
assign(output, 'output.txt'); rewrite(output);
read(a, b);
write(b - 1, ' ', a - 1);
end.
А, если ты её просто учителю показываешь:
var a, b: longint;
begin
write('Сколько банок прострелил Гарри? ');
readln(a);
write('Сколько банок прострелил Ларри? ');
readln(b);
writeln('Гарри не прострелил ', b - 1, ' банок');
writeln('Ларри не прострелил ', a - 1, ' банок');
end.
Региональные компьютерные сети.
Локальные сети не позволяют обеспечить совместный доступ к информации пользователям, находящимся, например, в различных частях города. На помощь приходят региональные сети, объединяющие компьютеры в пределах одного региона (города, страны, континента).