Помогите подправить задачу 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

Question

Информатика

Поликарп

4 июля, 11:42

Помогите подправить задачу 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

+1

Ответы (2)

Знаете ответ?

Леонид · Answer 1

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 k0 then writeln ('Да, Петров выписывает Правду.')

else writeln ('Петров не выписывает Правду.') ;

end.

Пример:

Ввод названий газет:

[1] Правда

[2] Мир

[3] Атеист

Ввод фамилий подписчиков:

[1] Петров

[2] Дружаев

[3] Базаров

Да, Петров выписывает Правду.

Федюня · Answer 2

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]Гундяев

Да, Петров выписывает газету Правда