В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
mockingbird12
mockingbird12
03.08.2021 08:21 •  Информатика

Информатика 11 класс.


Информатика 11 класс.

Показать ответ
Ответ:
YSPESHNUY
YSPESHNUY
10.06.2021 15:56

1)

var a,b,c,d:real;

begin

  read(a,b);

  c:=(a+b)/2;

  d:=2*a*b;

  if a>b then begin

   a:=d;

   b:=c;

  end;

  if a<b then begin

  a:=c;

  b:=d;

  end;

  writeln(a,' ',b);

end.

 

2)

var a,b:integer;

begin

  read(a,b);

  if (a<1) or (a>31) then writeln(' день введен неправильно');

  if (b<1) or (b>12) then writeln(' месяц введен неправильно');

end.

 

3)

var a,b,c:real;

begin

  read(a,b,c);

  if (a>b)and(a>c)then writeln(a); 

  if (b>a)and(b>c)then writeln(b);

  if (c>b)and(c>a)then writeln(c);

end.

0,0(0 оценок)
Ответ:
vladreutenko99
vladreutenko99
10.06.2021 15:56

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.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота