Помогите подправить задачу Pascal. Условие: Даны наименования трёх газет и три фамилии подписчиков. Определить, выписывает ли Петров газету "Правда". Мое решение: program z3; var A:array[1..3] of string; var B:array[1..3] of st...
Помогите подправить задачу 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
Гость
Ответ(ы) на вопрос:
Гость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]Гундяев
Да, Петров выписывает газету Правда
Гость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] Базаров
Да, Петров выписывает Правду.
Не нашли ответ?
Похожие вопросы