Возьми слово переписка
подбирай слова такие чтобы в них была буква п е р е п и с к а.
все!
Program zad1;
const N = 6;
var a: array[1..N] of integer;
i: byte;
b: integer;
begin
for i:=1 to N do
read(a[i]);
for i:=1 to N div 2 do
begin b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;
for i:=1 to N do
write(a[i],' ');
writeln;
end.
Var d,v,i1,i2:byte;
a:array[1..3,1..4] of integer;
begin
for i1:=1 to 3 do
for i2:=1 to 4 do
begin
read(a[i1,i2]);
if a[i1,i2]>=0 then d:=d+1; else v:=v+1;
end;
writeln('Dodatnih - ',d,' Vidyemnuh - ',v);
<span>end.</span>
Ответ:
One = input()
Two = input()
Three = input()
if One == 'раз' and Two == 'два' and Three == 'три':
print('ГОРИ')
else:
print('НЕ ГОРИ')
Объяснение:
проверил,работает