Ха-ха-ха)) Белорусский учебник по информатике за 10 класс)))
Там все просто...
Программа №4
Program str999;
Uses CRT;
Var
s: String;
Begin
Writeln('Введіте фразу');
read(s);
if (s='край озер') then
writeln ('Край озер лесов и рек');
if (s='Я учусь в школе') then
writeln ('Я учусь в 10-м классе')
end.
Потхоньку буду дополнять, не так все быстро))
Задание №5
Program р_1;
Uses CRT;
Var
s: String;
Begin
Writeln('Введите фразу');
read(s);
if (s='моя родина Беларусь') then
writeln ('Беларусь моя родина');
if (s='люблю цябе мой родны кут') then
writeln ('мой родны кут люблю цябе')
end.
Задание 1
a)
program pr;
var
s:string;
c:char;
i:integer;
begin
writeln('Введите имя и фамилию в одной строке');
readln (s);
writeln('Введите заданный символ');
readln (c);
for i:=1 to length(s) do if s[i]=c then writeln ('В строке найден заданный символ');
readln;
end.
б)
program pr;
var
s,n:string;
c:char;
i:integer;
begin
writeln('Введите имя и фамилию в одной строке');
readln (s);
i:=1;
while s[i]<>' ' do i:=i+1;
n:=copy(s,1,i-1);
writeln(n);
readln;
end.
в)
program pr;
var
s,n,f:string;
c:char;
i:integer;
begin
writeln('Введите имя и фамилию в одной строке');
readln (s);
i:=1;
while s[i]<>' ' do i:=i+1;
n:=copy(s,1,i-1);
f:=copy(s,i+1,length(s)-i+1);
writeln(n);
writeln(f);
readln;
end.
Задание2
program pr;
var s:string;
begin
s:='Касіу Ясь канюшыну';
delete (s,7,3);
insert ('Ясь',s,7);
writeln (s);
readln;
end.
Задание 3
а)
program pr;
var
s:string;
begin
s:='реки горы и болота';
delete (s,6,5);{удаляем включая пробел}
writeln (s);
readln;
end.
б)
program pr;
var
s:string;
begin
s:='реки горы и болота';
delete(s,13,6);
s:=s+'озера';
writeln (s);
readln;
end.
from itertools import product
i = open('input.txt', 'r')
o = open('output.txt', 'w+')
l = int(i.
alpha = "245"
d = []
for s in product(alpha, repeat=l):
d.append([" ".join(
for q in d[1: ]:
s = " ".join(q)
if int(s.count('2')) > 2:
continue
o.write(" ".join(q) + '\n')
i.close()
o.close()
код к : «перевод кода с питона на паскаль»
var
n,c,i,ost,b,t,d: integer;
a,k: string;
begin
readln(n);
c: =1;
for i: =1 to n do
c: =c*3;
c: =c-1;
for i: =1 to c do
begin
k: ='';
b: =i;
t: =0;
while b> 0 do
begin
ost: =b mod 3;
if ost=0 then inc(t);
d: =(-sqr(ost)+5*ost+4)div 2;
str(d,a);
k: =a+k;
b: =b div 3;
end;
while length(k)do
begin
k: ='2'+k;
inc(t);
end;
if t< =2 then writeln(k);
end;
end.