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

Решите все номера по информатике

👇
Открыть все ответы
Ответ:
reshetnicova74
reshetnicova74
10.07.2022
PascalABC

var
   a,b:integer;
begin
   readln(a,b);
   case b of
     1 : if a <= 19 then writeln('Зима. Козерог.') else writeln('Зима. Водолей.');
     2 : if a <= 18 then writeln('Зима. Водолей.') else writeln('Зима. Рыбы.');
     3 : if a <= 20 then writeln('Весна. Рыбы.') else writeln('Весна. Овен.');
     4 : if a <= 19 then writeln('Весна. Овен.') else writeln('Весна. Телец.');
     5 : if a <= 20 then writeln('Весна. Телец.') else writeln('Весна. Близнецы.');
     6 : if a <= 20 then writeln('Лето. Близнецы.') else writeln('Лето. Рак.');
     7 : if a <= 22 then writeln('Лето. Рак.') else writeln('Лето. Лев.');
     8 : if a <= 22 then writeln('Лето. Лев.') else writeln('Лето. Дева.');
     9 : if a <= 22 then writeln('Осень. Дева.') else writeln('Осень. Весы.');
    10 : if a <= 22 then writeln('Осень. Весы.') else writeln('Осень. Скорпион.');
    11 : if a <= 21 then writeln('Осень. Скорпион.') else writeln('Осень. Стрелец.');
    12 : if a <= 21 then writeln('Зима. Стрелец.') else writeln('Зима. Козерог.');
   end;
end.
4,8(69 оценок)
Ответ:
rasimfanov
rasimfanov
10.07.2022
#include <iostream>
#include <conio.h>

using namespace std;

int main(){

setlocale(LC_ALL, "Russian");

cout << "Введите три числа: ";
int a[2];
cin >> a[0]; cin >> a[1]; cin >> a[2];

if (a[0] < a[1] && a[0] < a[2])
 a[0] = 0;

else if (a[1] < a[0] && a[1] < a[2])
 a[1] = 0;

else if (a[2] < a[1] && a[2] < a[0])
 a[2] = 0;

cout << endl;
cout << a[0] << " " << a[1] << " " << a[2];

_getch();
return 0;
}
4,7(9 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ