Var
A,i:integer;
P:real;
Begin
P:=1;
WriteLn('Введите 10 целых чисел');
For i:= 1 to 10 do
Begin
Read(A);
if (10<=A)and(A<=20) then P:=P*A;
End;
WriteLn('P = ',P);
End.
Program z1;
var f: array[1..14] of integer;
sum,i:integer;
begin
randomize;
for i:=1 to 14 do
begin
f[i]:=random(16,35);
writeln(f[i],' человек',' в',' ',i,' классе');
Sum:=Sum+f[I];
end;
writeln('----------------------');
writeln ('Всего человек:',sum);
writeln ('Нужно уроков:',14*2); // делим на 2 группы,т.к во всех классах >16 человек.
writeln ('Нужно часов:',(14*2)*0.75); // урок длится 3/4 часа (45 минут).
end.
пусть на корабле икс кошек, тогда четырнадцать минус икс и умноженное на два равно количеству ног людей (не считая капитана), а икс умноженное на четыре равно количеству лап у кошек. сумма лап и ног равна сорока(капитан одноног), отсюда находим, что икс равен шести.
Audi; BMW; Volkswagen; Datsun; KIA
это — системная кнопка (клавиша) на компьютерной клавиатуре. На современных клавиатурах для PC-совместимых компьютеров обычно находится в нижних левом и правом углах алфавитно-цифрового блока