условие Фано: ни один из кодов не является началом другого кода.
F=110
1)для работы .2)из системного, блока, мыша, монитора и клавиатуры 3) с некоторыми программами и инструмент для создания новых идей 4)инструмент 5)больше 300 рублей (в моём стране больше 100 манат)
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var (a, b):= ReadReal2('a, b=');
if (b <> 0)then Writeln('D = ', a/b)
else Writeln('No Solution Exist');
end.
В первой задаче после выполнения программы переменная P будет равна 24.
Во второй задаче переменная S будет равна 12.
В третьей задача переменная S будет равна 41.
В четвёртой задаче переменная c будет равна 9.
В пятой задаче переменные x и t будут равны 5, а переменная y = 11.
var a:array [1..10] of integer;
i,k1,k2:integer;
begin
for i:= 1 to 10 do
a[i]:= Random(81)+20;
writeln(a);
for i:=1 to 10 do
if a[i] mod 2 = 0 then k2:=k2+1
else k1:=k1+1;
writeln('Количество чётных элементов: ',k2);
writeln('Количество не чётных элементов: ',k1)
end.