РЕШИТЕ С ОБЪЯСНЕНИЕМ в ИТ-компании работают 90 сотрудников. 55 сотрудников знают Java, 54 сотрудника - Python, 36 сотрудников - C++. Известно, что 51 сотрудник знает Python и Java одновременно, 11 сотрудников в компании совсем не владеют никаким языком программирования и никто не знает Java и C++ одновременно. Определите, сколько сотрудников знает одновременно Python и C++?
ПРАВИЛЬНЫЙ ОТВЕТ : 15.
1)Процессор Intel Pentium с тактовой частотой 3.4GHz, объем оперативной памяти 2Гб, внешний накопитель на 300Гб, видеокарта GeForce 7600GS с видеопамятью 256 Мб, есть слот для дисков DVD±RW, наличие звуковой карты, наличие порта для интернета, блок питания на 430В.
2)Процессор Intel Celeron с тактовой частотой 3.1GHz, 512Мб оперативной памяти, 200Гб внешнего накопителя, видеокарта GeForce 7300LE, FDD вероятнее всего HDD(устройство внешней памяти), наличие инструмента для чтения дисков DVD, наличие звуковой карты, возможность подключение к интернету по проводу, блок питания на 350В
Ужасный код, куча абсолютно бесполезных begin end, которые не стоят друг под другом, что только загромождает код! Ошибка в том, что Вы не форматируете код, и не видите, какой end закрывает какой begin. Уберите их из кода и получите:
program gg;
var
a, b, c, d, e, max: integer;
begin
writeLn('введите пять целых чисел');
read(a, b, c, d, e);
if (a >= b) and (a >= c) and (a >= d) and (a >= e) then
max := a
else
if (b >= a) and (b >= c) and (b >= d) and (b >= e) then
max := b
else
if (c >= b) and (c >= a) and (c >= d) and (c >= e) then
max := c
else
if (d >= b) and (d >= c) and (d >= a) and (d >= e) then
max := a
else
max := e;
writeln('наибольшее число ', max);
end.
Форматирование кода:
if () then
begin
оператор1;
оператор2;
end
else
begin
оператор1;
оператор2;
end;
}
Включите мозг и напишите нормальный код
program gg;
var
a, b, c, d, e, max: integer;
begin
writeLn('введите пять целых чисел');
read(a, b, c, d, e);
max:=a;
if b > max then max:=b;
if c > max then max:=c;
if d > max then max:=d;
if e > max then max:=e;
Writeln(max);
end.
or
// PascalABC.NET 3.3, сборка 1611 от 06.01.2018
// Внимание! Если программа не работает, обновите версию!
begin
var (a,b,c):=readinteger3;
var (d,e):= readinteger2;
Writeln(max(a,max(b,max(c,max(d,e;
end.