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

1. в автосалон пришла партия новых автомобилей. поставщик указалстоимость автомобилей в долларах. необходимо пересчитать стоимостьавтомобилей в рублях по текущему курсу валюты. выясните, сколькоавтомобилей из новой партии стоят более 1 млн. рублей, но менее 1,5 млн.рублей. в таблице должно содержаться не менее 10 значений. все данные,кроме вычисляемых значений, произвольно.2. на втором листе рабочей книги построить таблицу,содержащую список автомобилей и их стоимость в рублях вычислитесреднюю стоимость автомобиля из новой партии. на основании полученныхданных построить диаграмму, отражающую отношение стоимостейавтомобилей к средней стоимости3. на третьем листе рабочей книги в ячейки а2, в2 и c2 введитепроизвольные значения x, yuz. в ячейках а1, в1 и c1 сделайте поясняющиенадписи — «х», «у» и «z». в ячейках b4 и c4 вычислите значения ано, если2 cost (х-+ sin - у= (1+eпри вычислении по формулам необходимо использовать функции tano.степеньо, пио, sino, cos). 165x - 3 y = 42x – 4 = 5 решать информатику ​

Показать ответ
Ответ:
vbbbbb
vbbbbb
15.02.2022 18:49

Var

N,A:integer;

Begin

Write('N = ');Read(N);

A:=0;

While N>0 do

  Begin

  if (N mod 10) > A then A:= N mod 10;

  N:=N div 10;

  End;

Write(A)

End.

Var

N,A,B:integer;

C:boolean;

Begin

Write('N = ');Read(N);

A:=-1;

B:=-2;

C:=false;

While N>0 do

  Begin

  if A=B then C:=true;

  if N>0 then

     Begin

     A:=N mod 10;

     N:=N div 10;

     End;

  if A=B then C:=true;

  if N>0 then

     Begin

     B:=N mod 10;

     N:=N div 10;

     End;

  End;

if A=B then C:=true;

if C then Write('Есть')

else Write('Нет')

End.

Подробнее - на -

0,0(0 оценок)
Ответ:
krasotka505050
krasotka505050
19.09.2021 00:49

1. В.А.Котельников

Объяснение:

Влади́мир Алекса́ндрович Коте́льников (24 августа (6 сентября) 1908 года в Казани — 11 февраля 2005 года в Москве) — советский и российский учёный в области радиофизики, радиотехники, электроники, информатики, радиоастрономии и криптографии. Один из основоположников советской секретной радио- и телефонной связи. Академик АН СССР (23.10.1953), академик РАН (отделение физических наук), вице-президент АН СССР 1970—1988 гг, дважды Герой Социалистического Труда, 4-й кавалер ордена "За заслуги перед Отечеством" I степени.

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