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

python:
Задача 1.
У введеній послідовності цілих чисел впорядкувати лише від'ємні числа та вивести на екран.
Задача 2.
У введеній послідовності цілих чисел впорядкувати лише парні числата вивести на екрану зворотному
порядку.
Задача 3*. Впорядкувати задану послідовність так щоб спочатку спадала від'ємні числа, а потім зростали
додатні.
У текстових файлах вказані варіанти можливих модифікацій початкової програми, Вам потрібно здогадатися
який мод і до якої задачі підходить, а також в яке місце програми потрібно його вставити.
Кожна задача принесе Вам оцінки​

Показать ответ
Ответ:
yulyatimonen
yulyatimonen
30.09.2022 19:51

Объяснение:

#include "pch.h"

#include <stdio.h>

#include <iostream>

#include <cmath>

using namespace std;

int main()

{

setlocale(LC_ALL, "Russian");

int num, k=0;

string str;

cout << "Введи многозначное число" << endl;

cin >> num;

while (num != 0)

{

 k += 1;

 num /= 10;

}

if(k==1)

{

 cout << k << " цифра" << endl;

}

else if (k >= 2 && k <= 4) {

 cout << k << " цифры" << endl;

}

else {

 cout << k << " цифр" << endl;

}

system("pause");

return 0;

}

0,0(0 оценок)
Ответ:
Ангелина56533
Ангелина56533
18.12.2021 12:04
Program TaskA;
Var i, n: Integer;
Begin
Randomize;
n := Random(10);
For i := 1 To n Do
WriteLn(Random, ' ');
End.

Program TaskB;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random, ' ');
End.

Program TaskC;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(11), ' ');
End.

Program TaskD;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(10), ' ');
End.

Program TaskE;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(20 + 10 + 1) - 10, ' ');
End.

Program TaskF;
Var i: Integer;
Begin
Randomize;
For i := 1 To 10 Do
WriteLn(Random(122 + 97 + 1) - 97, ' ');
End.

Program TaskG;
Var i, sum: Integer;
BeginRandomize;
For i := 1 To 10 Do
sum := sum + Random(11);
WriteLn(sum);
End.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота