Ответы на вопрос:
Program z3; var a: array[1..3] of string; var b: array[1..3] of string; i,k: byte; begin writeln('ввод названий газет: '); for i: =1 to 3 do begin write('[',i,']'); readln(a[i]); end; writeln('ввод подписчиков: '); for i: =1 to 3 do begin write('[',i,']'); readln(b[i]); end; for i: =1 to 3 do begin if (a[i]='правда') and (b[i]= 'петров') then begin k: =i; writeln('да, петров выписывает газету ',a[i]); end; end; end. ввод названий газет: [1]книга [2]правда [3]вера ввод подписчиков: [1]библиотекарь [2]петров [3]гундяев да, петров выписывает газету правда
Популярно: Информатика
-
verastepanova501.07.2022 07:21
-
Karjal15.11.2022 02:51
-
f0xsick02.02.2023 05:10
-
Ася06513.07.2022 09:04
-
Romanus1121.01.2021 15:36
-
QwErTyля15.10.2020 12:55
-
bcvfb03.12.2021 16:13
-
ilia20057522.10.2020 04:26
-
Гриимитсичень19.07.2022 22:11
-
paul190513.04.2021 03:56