Подправить pascal. условие: даны наименования трёх газет и три фамилии подписчиков. определить, выписывает ли петров газету "правда". мое решение: 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 readln(a[i]); readln(b[i]); end; k: =0; for i: =1 to 3 do if (a[i]='правда') and (b[i]= 'петров') then begin k: =i; writeln('да, петров выписывает газету ',a[i]); end; if k=0 then writeln('петров не выписывает газету ',a[i]); end. подскажите,правильно решена ? и как сделать так,чтобы на экран выводился индекс газеты и индекс ее подписчика? например: [1] правда , [1] петров или [2] газета n [3] подписчик n

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

Тунеков23

01.09.2022 18:08

3. Укажіть операцію опрацювання тексту, що належить до редагування в середовищі текстового процесора Microsoft Wordа) перевірка правопису та виправлення помилокб)...

kurbanov2017p05b7v

14.10.2022 21:38

Создать нейронную сеть распознавания цифр от 0 до 9. Входная матрица 8x5....

sbelikova44

30.05.2021 21:10

Как нарисовать эллипс и разместить внутри текста изменить формат в программе Word...

Заноза19

03.01.2023 15:35

Значение ячейки А1 равно 90. Какое слово появится в ячейке А2, если в неё введена формула: =ЕСЛИ(А1=100; Всегда ; ЕСЛИ(И(А1 =80; A1 =60; А1 80); Иногда ; Никогда...

aidakairatova02

27.10.2020 08:23

Решите у меня ср, даю 40 б...

nastya20174

09.06.2023 14:17

1. С какой клавиши можно нарисовать правильную фигуру2. Как сгладить углы прямоугольника в редакторе Inkscape?3. Какие фигуры можно нарисовать с инструмента О?4....

CleverBoy17

10.10.2020 16:05

РЕШИТЕ С ПРОВЕРКОЙ И СТОЛБИКОМ...

Петрович05

29.07.2022 12:53

Решите задачу диаграммой кругами Эйлера На летних каникулах все ученики 6Б класса были в походе или на экскурсии. В поход ходило 75% учеников класса, а на экскурсии...

tatarchenko04

22.11.2021 21:51

Объем сообщения, содержащего 2048 символов, Составил 1/2 часть Кбайта. Каков размер алфавита, с которого записано сообщение? ...

mashashherbina

08.12.2022 18:53

Напишите программу на Паскале, которая заполняет массив N2 из 9 элементов степенями числа 2 от 1-й до 9-й степени, печатает этот массив, а потом перемещает элементы...

Ответ:

elizabetas326

27.09.2020 11:29

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]Гундяев
Да, Петров выписывает газету Правда

0,0(0 оценок)

Ответ:

Vexicy

27.09.2020 11:29

Program z3;
const n=3;
var A:array[1..n] of string;
var B:array[1..n] of string;
i,k:byte;

begin
writeln('Ввод названий газет:');
for i:=1 to n do
begin write('[',i,'] '); readln(A[i]);end;
writeln('Ввод фамилий подписчиков:');
for i:=1 to n do
begin write('[',i,'] '); readln(B[i]);end;
k:=0;
for i:=1 to n do
if (A[i]='Правда') and (B[i]='Петров') then k:=i;
if k<>0 then writeln('Да, Петров выписывает Правду.')
else writeln('Петров не выписывает Правду.');
end.

Пример:
Ввод названий газет:
[1] Правда
[2] Мир
[3] Атеист
Ввод фамилий подписчиков:
[1] Петров
[2] Дружаев
[3] Базаров
Да, Петров выписывает Правду.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку