1 (23+35) 2 (94-92) 3разделить получившееся числа
var a:array [1..100] of int;
i,j,n,t,winners:integer;
Begin
writeln("Введите кол-во делителей");
read(n);
writeln("Введите k");
read(k);
writeln("Введите делители");
for i := 1 to n do
read(a[i]);
for i:= a to b do begin
t:=0;
for j:= 1 to n do
if i mod a[j] = 0 then t:=t+1;
if t=k then winners:=winners+1;
end;
writeln(winners);
End.
Var a,b,s: real;
begin
a:=5;
b:=-3.5;
s:=a+b;
s:=2*s-b;
writeln(s);
end.
ОТВЕТ
6,5
// PascalABC.NET
begin
var L1 := ReadlnReal('введите расстояние в км: ');
var L2 := ReadlnReal('введите расстояние в футах: ');
L2 := L2 * 0.305E-3; // перевод футов в километры
if L1 < L2 then
Println('L1 меньше')
else if L2 < L1 then
Println('L2 меньше')
else
Println('L1 = L2')
end.