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

по операционным системам и заполнить таблицу:


по операционным системам и заполнить таблицу:

Показать ответ
Ответ:
Andrey21vek
Andrey21vek
28.06.2020 07:07

#include <locale>

#include <iostream>

#include <cstdlib>

using namespace std;

int main(int argc, char argv[]) {

setlocale(LC_ALL, "Russian");

long long int a;

int i;

cout << "Введите число" << endl;

cin >> a;

if (a <= 1) {

 cout << "Ошибка ввода" << endl;

 return 1;

}

if (a % 2 == 0) {

 cout << "Наибольший делитель: " << a / 2 << endl;

}

else {

 for (i = a / 2; i > 1 && a % i; --i);

 if (i == 1)

  cout << "Наибольший делитель: " << i << endl;

 else {

  i = a / 2;

  while (a % i != 0)

   --i;

  cout << "Наибольший делитель: " << i << endl;

 }

}

return 0;

}

0,0(0 оценок)
Ответ:
marina0708
marina0708
01.10.2022 01:05

program Project1;

 

var

 S : String;

 K, Num1, Num2 : Integer;

begin

 repeat

   Writeln('Задайте целое число:');

   Readln(K);

 

   S := 'Мы собрали ' + IntToStr(K) + ' ';

   Num1 := K mod 10;

   K := K div 10;

   Num2 := K mod 10;

 

   case Num1 of

     1 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриб';

     end;

     2..4 :

     begin

       if Num2 = 1 then S := S + 'грибов'

       else S := S + 'гриба';

     end;

     else

       S := S + 'грибов';

   end;

 

   S := S + ' в лесу.';

 

   Writeln('Результат:');

   Writeln(S);

 

   Writeln('Повторить - Enter. Выход - любой символ + Enter.');

   Readln(S);

 until S <> '';

end

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