в условии не указано но для кодирования используется фраза "в памяти " при этом для нахождения кода шифрованной буквы нужно к коду исходной буквы прибавить код буквы из предложения к первой букве прибавляем код первой буквы предложения ко второй код второй итд т.
а для расшифровки эти коды нужно вычитать, получаем
в п а м я
3 17 1 14 33
п щ о я к
17 27 16 33 17
-
3 17 1 14 33
14 10 15 19 17
м и н с к
н щ ё п
15 27 7 17
-
3 17 1 14
12 10 26 3
к и е в
Ответ дал: Гость
1)
var
a,b,x,y: real;
begin
readln(a,b);
x: =(a+b)/2;
y: =2*a*b;
if a> b then
begin
a: =y;
b: =x;
end
else
begin
a: =x;
b: =y;
end;
writeln('a=',a: 8: 3);
writeln('b=',b: 8: 3);
end.
2)
var
d,m: integer;
begin
readln(d,m);
if (d< 1) or (d> 31) then writeln ('день введен неверно');
if (m< 1) or (m> 12) then writeln ('месяц введен неверно');
end.
3)
var
a,b,c: integer;
begin
readln(a,b,c);
if (a> b) and (a> c) then writeln(a);
if (b> a) and (b> c) then writeln(b);
if (c> a) and (c> b) then writeln(c);
end.
Ответ дал: Гость
var a: integer;
begin readln(a); if (4 * a > 9) and (4 * a < 100) then writeln('периметр двузначное число') else writeln('периметр не двузначное число'); end.
Популярные вопросы