Var i, f:integer;
begin
f := 1;
for i:= 1 to 6 do begin
f := f*i;
end;
write(f);
end.
1) ответ 0
div - целочисленное деление, выдает целую часть после деления
126 div 10 = 12
mod - выдает остаток от деления
12 на 4 делится без остатка поэтому
12 mod 4 = 0
2) ответ 2, 3 и 4 пункты
div - целочисленное деление, выдает целую часть после деления
так что 15 делить на 15 будет 1
в остальных пунктах при делении будет число меньше 1 и оно обрежется до 0
Program perebor;
const n=100;
var a:array[1..n] of integer;
i,j,k,l: integer;
begin
<span>writeln('Ввести массив из ',n,' целых чисел');
</span>for i:=1 to n do read(a[i]);
for i:=1 to n do
for j:=i+1 to n do
for k:=j+1 to n do
for l:=k+1 to n do
if a[i]+a[j]+a[k]+a{l}=0
then writeln(a[i],' ',a[j],' ',a[k],',a[l] );
end.
Космическая система} содержит {Солнечная система} содержит { Земля, Марс, Солнце}
каждый из { Земля, Марс} является {планета}
Птица-общее
Воробей-единичное
Перелетная птица-общее
Ласточка-единичное
Аист-единичное