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

Тест
3.Что такое сервер?

1. Общая схема соединения компьютеров

2 . Кабель, соединяющий компьютеры между собой

3 .Компьютер, выделенный для хранения файлов и программных обеспечений​

👇
Открыть все ответы
Ответ:
tsvirko7891
tsvirko7891
26.05.2022

#include <iostream>

using namespace std;

int main()

{

 int a, b, c, febrary;

 bool isValid;

 //setlocale(LC_ALL, "Russian");

 cout << "Day:";

 cin >> a;

 cout << "Month:";

 cin >> b;

 cout << "Year:";

 cin >> c;

 if (c % 4 == 0)

   febrary = 29;

 else

   febrary = 28;

 isValid = true;

 if (b < 1 || b > 12)

   isValid = false;

 if (a < 1 || b > 31)

   isValid = false;

 if (b == 4 || b == 6 || b == 9 || b == 11)

   isValid = false;

 if (b == 2 && a > febrary)

   isValid = false;

 if (isValid)

   cout << "yes";

 else

   cout << "no";

}

4,6(45 оценок)
Ответ:
Kasha26336
Kasha26336
26.05.2022

program Multi3;

var

 A: array [1..3] of Double;

 i: Integer;

 p: Double;

 b: Boolean;

begin

 Randomize;

 Write ('Исходные числа:');

 WriteLn;

 for i := 1 to 3 do begin

   A [i] := Random (4000) / 1000 - 1;  // заполняем числами, чтоб были и положительные и отрицательные

   Write (A[i] :10 :3, ' ');

 end;

 b := False;

 p := 1;

 for i := 1 to 3 do begin

   if Abs (A [i]) < 1 then begin

     b := True;    // включаем флаг, если найдено хотя бы одно подходящее число

     p := p * A [i];

   end;

 end;

 WriteLn;

 if b then

   WriteLn ('Произведение = ', p :10 :3)

 else

   WriteLn ('Произведение не определено.');

 ReadLn;

end.

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