Окно. Строка управления (та верхняя строка в убунту или нижняя, как в винде). Крестик или что-то похожее в роли выхода из программы программы.
Program aliona;
const n =10;
var a:array[1..n,1..n] of integer;
i,j,s:integer;
begin
<span>randomize;
for i:=1 to n do
for j:=1 to n do
begin
a[i,j]:=random(30);
write ( 'а(', i, ',', j, ')=', a[i,j]);
end ;
</span>s:=0;
for i:=1 to n do begin
for j:=1 to n do begin
if a[i] (mod 2 =0) and (a[i]<0) then s:=s+a[i];
writeln('s=',s);
readln;
end.
1.
var i:integer;
begin
for i:=10 to 100 do
if i mod 11 = 0 then write(i,' ');
writeln;
end.
Результат:
<span>11 22 33 44 55 66 77 88 99
2.
var a,k,p:integer;
begin
readln(a);
p:=1; k:=1;
while p<=1000 do
begin
p:=p*a;
k:=k+1;
readln(a);
end;
writeln('k = ',k,' p = ',p);
end.
Пример:
5
8
4
9
7
k = 5 p = 1440</span>
Поскольку 10 = 5 х 2, то число, кратное 10, одновременно кратно и 5.
<em><u>Турбо Паскаль 7.01</u></em>
uses Crt;
var
n:longint;
begin
ClrScr;
Write('n='); Read(n);
if n mod 10=0 then Writeln('Число кратно 10 и 5')
else Writeln('Число не кратно 10 и 5');
ReadKey
end.
В то же время, возможно сам вопрос неверно поставлен, и подразумевается, что надо различать три случая: 1) число кратно только 5 2) число кратно 10, следовательно, и 5 3) число не кратно ни 5, ни 10. Но это уже проблемы автора вопроса.