Используя закон аддитивности количества информации, решите о билете в кинотеатр со следующим дополнительным - id594798420200708 от gimazova99 08.07.2020 15:01

Question

Информатика: Используя закон аддитивности количества информации, решите о билете в кинотеатр со следующим дополнительным условием : в кинотеатре 4 зала. в билете указан номер зала, номер ряда и номер места. какое количество информации заключено в билете? ! 45 за верный ответ!

gimazova99 · Accepted Answer

//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
{
программа, вычисляющая площадь прямоугольника.
}
var
a,b: real;

begin
write('Стороны прямоугольника ');
read(a,b);
writeln(' Площадь фигуры = ',a*b:10:3);
end.

Тестовое решение:
Стороны прямоугольника 5.3 6.7
Площадь фигуры = 35.510

{
С клавиатуры вводятся 3 целых числа.
Определить количество положительных чисел
в этом наборе.
}
var
a,i,n: integer;

begin
for i:=1 to 3 do begin
write(i,'число = ');readln(a);
if a>0 then n:=n+1;
end;
writeln(' Положительных :',n);
end.

MOGZ ответил