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

Задание 4. Наглядное представление процессов изме-
нения величин
1. Откройте файл Погода.doc (Погода.odt).
2. Постройте график изменения температуры воздуха. Для этого:
1) выделите ячейки, содержащие значения температуры;
2) постройте диаграмму, имеющую тип График, вид
График с маркерамн.
3. Постройте график изменения влажности воздуха.
4. Постройте график изменения атмосферного давления (нуж-
ный вид подберите самостоятельно).
5. Сохраните результат работы в личной папке под именем
Погода

Показать ответ
Ответ:
fadasgferson
fadasgferson
23.06.2021 09:24
#include <iostream>
#include <algorithm>
using namespace std;

int main()
{
    long long int n{ 0 }, z{ 0 };
    while (cin >> n) {
        size_t ans[120];
        for (; n != 0; n = n / 10) {
            int tmp = n % 10;
            if (n / 10 != 0 || (n / 10 == 0 && n != 9)) { 
                tmp = min(tmp, 9 - tmp); 
            }
            ans[z++] = tmp;
        }
        for (int i = z - 1; i >= 0; i--) {
            cout << ans[i];
        }
        cout << endl;
    }
    return 0;
}
0,0(0 оценок)
Ответ:
GranMartin
GranMartin
08.01.2021 23:00
PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
Внимание! Если программа не работает, обновите версию!

1. Современное решение

begin
  var m:=ReadInteger('Введите расстояние в метрах');
  var (km,mm):=(m div 1000,m mod 1000);
  Write(m,'км = ',km,'км');
  if mm>0 then Writeln(' ',mm,'м') else Writeln
end.

Пример
Введите расстояние в метрах 4501
4501км = 4км 501м

2. Так часто учат писать в школе

program Perevod;

var
  m,km,mm:integer;
 
begin
  Write('Введите расстояние в метрах');
  Readln(m);
  km:=m div 1000;
  mm:=m mod 1000;
  Write(m,'км = ',km,'км');
  if mm>0 then Writeln(' ',mm,'м')
  else Writeln;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота