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

Cоставьте блок-схемы для решения следующих . 1 проверьте, является ли произвидение трех произвольных чисел, введенных с клавиатуры, уменьшенное в 3 раза, четным числом. 2для четырех произвольных чисел введенных с клавиатуры выведите на экран соответствующие результаты. если второе и четвертое числа отрицательны то выведите их произвидение. если первое и третье числа больше 10. то выведите все четыре числа увеличив их в 10 раз. если одновременно выполняются два перечисленных выше условия то выведите эти четыре числа без изминения иначе выведите все 4 числа уменьшив их в 10 раз 3 найти значение выражения 1*1+2*1++n*n 4 найти все простые детали натуральное число n.

👇
Ответ:
vova01092005
vova01092005
30.11.2020
вот первые два, в файлах ниже!, четертое пока не знаю.
Cоставьте блок-схемы для решения следующих . 1 проверьте, является ли произвидение трех произвольных
Cоставьте блок-схемы для решения следующих . 1 проверьте, является ли произвидение трех произвольных
Cоставьте блок-схемы для решения следующих . 1 проверьте, является ли произвидение трех произвольных
4,8(46 оценок)
Открыть все ответы
Ответ:
oxpoluhina2017
oxpoluhina2017
30.11.2020
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.
4,7(39 оценок)
Ответ:
piv1490
piv1490
30.11.2020
#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;
}
4,4(27 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ