Как разшифровать ети цифри 15-23-10 30-26-14-26, 2-30-26-12-6 27-26-27-11-29-30-7 25-11 29-23-16-15-31-9-4-20-21 - id2108199120220209 от анапияабдыганиева 09.02.2022 16:16

Question

Информатика: Как разшифровать ети цифри 15-23-10 30-26-14-26, 2-30-26-12-6 27-26-27-11-29-30-7 25-11 29-23-16-15-31-9-4-20-21 31-28-26-13-16-25-7, 13-11-24 25-16-26-12-33-26-15-20-24-26 28-16-3-20-30-7 29-23-31-2-11-21-25-31-9 14-26-23-26-13-26-23-26-24-22-31. 30-16-22-31-4-11-10 14-26-23-26-13-26-23-26-24-22-11: 27-26-29-2-20-30-11-21-30-16 28-26-19-16-30-22-20. 13-11-24 25-31-18-25-26 25-11-21-30-20 22-11-18-15-31-9 28-26-19-16-30-22-31 13 15-26-24-16 20 27-28-20-22-23-16-20-30-7 22 25-20-24 22-31-29-26-22

анапияабдыганиева · Accepted Answer

1)var
n:longint;
begin
readln(n);
if n mod 5=0 then writeln('Число N является кратным чилслу 5')else
writeln('Чило N не является кратным числу 5' );
end.
2)
var
a,b,c:longint:
begin
readln(a,b,c);
if (a+b)div 2=c then writeln('Число C является средним арефметическим чисел A и B') else writeln(' Число C является средним арефметическим чисел A и B') else writeln('Число C не является средним арефметическим чисел A и B ');
end.
3)
var
a:longint;
begin
write('Сколько вам лет?');
readln(a);
if a<14 then write('Вам еще рано получать паспорт?') else write('Поздравляю! Вы гражданин России!');
end.
4)
var
a:extended;
begin
readln(a);
if (a>36)and(a<37) then writeln('Вы здоровы') else writeln('Вы больны');
end.

MOGZ ответил