М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Ася065
Ася065
18.08.2022 15:23 •  Информатика

№1 даны два действительных числа, не равные друг другу. меньшее из этих двух чисел заменить половинной их суммы, а большее-их удвоенным произведением. №2 определить корректность введенной даты(число-от 1 до 31, месяц-от 1 до 12).
если введены неверные данные, то сообщить об этом. №3 написать программу, которая находит наибольшее из трех введенных чисел и выводит его на экран.

👇
Ответ:
Васютка3333
Васютка3333
18.08.2022

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.

4,4(15 оценок)
Ответ:
Ястеб22
Ястеб22
18.08.2022

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.

4,4(91 оценок)
Открыть все ответы
Ответ:
asdghkbf
asdghkbf
18.08.2022
Var
n,t,s,d,e:integer;
begin
writeln('');
repeat
writeln('Введите сумму в рублях<=1000');
readln(n);
until (n>0) and (n<=1000);
t:=n div 1000;
n:=n-t*1000;
s:=n div 100;
n:=n-s*100;
d:=n div 10;
if d<>1 then
begin
n:=n-d*10;
e:=n;
end;
case t of
     1:write('тысяча ');
end;
if s>=0 then
case s of
     1:write('сто ');
     2:write('двести ');
     3:write('триста ');
     4:write('четыресто ');
     5:write('пятьсот ');
     6:write('шестьсот ');
     7:write('семьсот ');
     8:write('восемьсот ');
     9:write('девятьсот ');
end;
if d>=0 then
case d of
     1:
     case n of
     10: write('десять ');
     11: write('одиннадцать ');
     12: write('двенадцать ');
     13: write('тринадцать ');
     14: write('четырнадцать ');
     15: write('пятнадцать ');
     16: write('шестнадцать ');
     17: write('семнадцать ');
     18: write('восемнадцать ');
     19: write('девятнадцать ');
     end;
     2:write('двадцать ');
     3:write('тридцать ');
     4:write('сорок ');
     5:write('пятьдесят ');
     6:write('шестьдесят ');
     7:write('семьдесят ');
     8:write('восемьдесят ');
     9:write('девяносто ');
end;
if e>=0 then
case e of
     1:write('один ');
     2:write('два ');
     3:write('три ');
     4:write('четыре ');
     5:write('пять ');
     6:write('шесть ');
     7:write('семь ');
     8:write('восемь ');
     9:write('девять ');
end;
if (e=1) then write('рубль ')
else if (e=0)or(e>4) then write('рублей ')
else write('рубля ');
end.
4,5(3 оценок)
Ответ:
Vitaminka123456789
Vitaminka123456789
18.08.2022

"Волк и ягнёнок"


Черты характера:жестостокость,сила,безжалостность волка,подчинение,

жертвенность,слабость ягнёнка.

Модель отношений:Авторитарная модель отношений. Силу-олицетворяет волк,ягнёнок-олицетворяет слабую сторону.


"Ворона и лисица"


Черты характера:Глупость,доверчивость,"серость"-ворона,хитрость,

льстивость,изобретательность-лиса.

Модель отношений:Расчётливость,корыстный подход к делу.Глупая ворона верит лести,сообразительная лиса достигает желаемого -получает сыр,используя все средства для достижения результата.


"Демьянова уха"


Черты характера:Льстивость,неуважение,глупая настойчивость-Демьян,бесхребетность,подчинение,слабохарактерность-Фока.

Модель отношений:Принуждение ,навязывание чего-либо.Навязывание своего образа жизни,излишнее гостеприимство,насильно заставляя соседа делать то,что он не хочет со стороны Демьяна приводит к невежливому побегу Фоки,который не отказывать и говорить "нет".


"Квартет"


Черты характера:Хвастливость,самоуверенность,глупость,завышенное самомнение,болтливость,неумение трудиться,необразованность.

Модель отношений:Несоответсвие занимаемой должности.Бесталантные люди очень часто решают,что всё могут,а на деле они не хорошо работать,так как считают себя лучше других.


"Лебедь рак и щука"


Черты характера:Упрямство,глупость,эгоизм,нежелание думать о других.

Модель отношений:Неслаженность коллективной работы,неумение дружить.Каждый живёт или работает сам по себе,не думая о других.Нежелание подстроиться,уступить делают дружбу невозможной,а работу бесполезной.


"Лисица и виноград"


Черты характера:Льживось,несостоятельность,клеветничество,

недальноумие лисы.

Модель отношений:Проблема достижения цели,желаемого.Не достигнув желаемого,лисица опорочила виноград,оправдывая свою несостоятельность.


"Слон и Моська"


Черты характера:Сила,уверенность,добродушие-слон,агрессивность,

глупость,слишком высокое мнение о себе-Моська.

Модель отношений:Несоимеристь сил и возможностей.Привлечение к себе излишнего внимания,для создания ложного, завышенного мнения."Облаять" сильного-это не значит быть самому сильным.


"Стрекоза и муравей"


Черты характера:Трудолюбие,ответственность,определение жизненный целей-муравей,лень,праздность,прожигание жизни-стрекоза.

Модель отношений:Безответственное отношение к труду.Трудом муравей создаёт своё благополучие,обеспечивает жизнь,а стрекоза ,не умея работать,не хочет жить по правилам,становится при


"Тришкин кафтан"


Черты характера:Изворотливость,недальновидность ,глупость,

недостаток ума Тришки.

Модель отношений:Неправильный выбор приоритетов.Необдуманное решение незначительной проблемы,создавая при этом другую,глобальную проблему,что приводит к печально результату.

4,7(38 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ