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] Базаров Да, Петров выписывает Правду.
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]Гундяев Да, Петров выписывает газету Правда
по алгоритму евклида:
var a,b:integer;
begin
readln(a,b);
repeat
if a>b then
a:=a mod b
else
b:=b mod a;
until (a=0) or (b=0);
writeln(a+b);
end.
var a,b:integer;
begin
readln(a,b);
while (a<>0) and (b<>0) do
if a>b then
a:=a mod b
else
b:=b mod a;
writeln(a+b);
end.