var a: integer;
begin
write('Введите двузначное число: ');
readln(a);
if (a mod 10 = 6) or (a div 10 = 6) then writeln('В его составе есть цифры кратные 6')
else writeln('В его составе нет цифр кратных 6')
end.
Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.
Program summa;
var i,n:integer;
begin
for i:=10 to 15 do
n:=n+i;
writeln('Summa 4isel ot 10 do 15= ',n);
end.<span>
</span>
Перед тем как попасть в D:\ пользователь был в SCHOOL. Так как SCHOOL не может быть уровнем выше чем D, он на уровень ниже. Других выходов в один из этих каталогов до того не было, значит, началом является либо сам каталог D:\SCHOOL, либо один из расположенных в нем(D:\SCHOOL\*). Из представленных вариантов ответа подходит только 2. Отсутствие противоречий легко проверить.
Var m,n:integer;
Begin
write('Введите m и n: ');
readln (m,n);
while m<>n do
begin
If m>n then m:=m-n
else n:=n-m
end;
write ('НОД=',m)
end.
<span>На место "..." </span>ставим "<>"