// PascalABC.NET 3.2, сборка 1439 от 09.05.2017 // Внимание! Если программа не работает, обновите версию!
function ДробьНесократима(Чис,Знам:integer):boolean; begin while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end; Result:=Чис=1 end;
begin for var Знаменатель:=2 to 7 do for var Числитель:=1 to Знаменатель-1 do if ДробьНесократима(Числитель,Знаменатель) then Write(Числитель,'/',Знаменатель,' '); Writeln end.
Клавиша клавиатуры - цвет( Черный, белый, серый), Являеться ли клавиша горячей (да, нет, только в сочетании с другими), количество различных символов, которые можно набрать с одной клавиши(0, 1, 2, 3)
Классная доска - Поверхность для письма(Металл, дерево, глянец), размер(2,3,4 метра в квадрате), количество возможных положений доски(1,2,3,4)
begin
a:=5;
k:=0;
s:=0;
repeat
s:=s+a;
a:=a+4;
k:=k+1;
until s=324;
writeln (k)
end.