Пять одноклассников: аня, саша, лена, вася, миша стали победителями олимпиад по: , , информатики, и - id593038420210327 от Vikaaaa32 27.03.2021 03:23

Question

Информатика: Пять одноклассников: аня, саша, лена, вася, миша стали победителями олимпиад по: , , информатики, и . известно что победитель по информатики учит аню и сашу на компьютере; лена и вася интересуются информатикой; лена и саша и победитель в занимаются плаванием; саша боится ; саша и лена поздравили победителя по ; аня сожалеет, что у нее мало остается времени на . кто победитель олимпиады по информатики?

Vikaaaa32 · Accepted Answer

1-ая
Program one;
Var
n, i : integer;
a : array [1..1010] of integer;
Begin
read(n);

for i := 1 to n do
begin
read(a[i]);
end;
for i := 1 to n do
begin
write(a[i], ' ');
end;
writeln();
for i := n downto 1 do
begin
write(a[i], ' ');
end;
End.
2-ая
Program two;
Var
n, i, k: integer;
a : array [1..1010] of integer;
Begin
read(n);
k := 1;
while (n > 0) do
begin
a[k] := n mod 10;
k := k + 1;
n := n div 10;
end;
for i := k - 1 downto 1 do
write (a[i], ' ');
End.
3-я
Program two;
Var
k, start, endd, i: integer;
a : array [1..1010] of integer;
Begin
read (start, endd);
k := 1;
for i := start to endd do
begin
     if (i mod 2 = 0) then
     begin
          a[k] := i;
          k := k + 1;
     end;
end;

for i := k - 1 downto 1 do
    write (a[i], ' ');

End.

MOGZ ответил