Program Pr1;
uses crt;
var x:real;
begin
clrscr;
x:=-4;
while x<=4 do begin
writeln(ABS(x+2));
x:=x+0.5;
end;
end.
<span>№1
1)Леска – зашифрованное слово
№2
1)Коа, аок,
2)кан, ака,
3)нос – единственное слово которое имеет одну расшифровку
№3
1)</span>agte, qte<span>
2)</span>tabg, tlg<span>
3)</span>tbag, tug, tbq<span>
4)</span>gate <span>– единственное слово которое имеет одну расшифровку</span>
#1
var
mas:array[1..10] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 10 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum/10);
end.
#2
var
mas:array[1..15] of integer;
i,sum:integer;
begin
sum:=0;
for i:=1 to 15 do
begin
read(mas[i]);
sum:=sum+mas[i];
end;
writeln(sum);
end.
#3
var
mas:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
read(mas[i]);
for i:=1 to 10 do
begin
mas[i]:=mas[i]+10;
write(mas[i],' ');
end;
end.