Такая информация называется Достоверной
Var a:array[1..20] of integer;
i:integer;
sr:real;
begin
for i:=1 to 20 do begin
a[i]:=random(-20,20);
sr+=a[i];
write(a[i],' ');
end;
writeln;
write(sr/20:3:2);
<span>end.</span>
1.в конверте есть письмо
2.нет приглашения, есть письмо
var
a, s, p : integer;
begin
p := 1;
repeat a := ReadInteger('введите 4-х значное число: ') until (a > 999) and (a < 10000);
while a > 0 do begin
s += a mod 10;
p *= a mod 10;
a := a div 10;
end;
writeln('сумма ', s);
writeln('произведение ', p);
end.
1)нлрзпгхсёугч
2)усдсх
3)црлеиуфлхзх
4)криптогрфаия- выходит по вашим буквам, там наверно у вас надо поменять Ч и Г. будет криптография