Трое друзей играли во дворе в футбол и разбили мачом окно. ваня сказал: это я разбил окно, коля окно - id965048420210315 от Sagidanovadi 15.03.2021 11:53

Question

Информатика: Трое друзей играли во дворе в футбол и разбили мачом окно. ваня сказал: это я разбил окно, коля окно не разбивал коля сказал: это сделал не я и не саша бабушка сидела на лавоч ке и все видела. она сообщила, что только один мальчик оба раза сказали правду, но не назвала того,кто разбил окно. кто же это сделал? решите , заполнив и проанализируя таблицу истинности.

Sagidanovadi · Accepted Answer

1.

var
i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(21)-10;
for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Каждый пятый эелемент массива: ');
for i:=1 to 20 do if i mod 5 = 0 then write(A[i]:5);
end.

2.
var
x,i: integer;
A: array [1..20] of integer;

begin
randomize;
writeln('Массив: ');
for i:=1 to 20 do A[i]:=random(11);for i:=1 to 20 do write(A[i]:5);
writeln;
writeln('Натуральные числа в диапазоне [5..10]: ');
for i:=5 to 10 do write(A[i]:5);
writeln;
x:=1;
writeln('Их произведение: ');
for i:=5 to 10 do x:=A[i]*x;
write(x:5);
end.

MOGZ ответил