Var
a,b,c:integer;
begin
writeln("в каком году был основан город Минск ?");
writeln("<span>в 1067 году, в 1993 году, в 1147 году. В ответе просто число.</span>");
readln(a);
if a = 1067 then writeln("верно")
else writeln("Ошибка")
<span>var
i, k: real;
num:array[1..100] of integer;
begin
for: i := 1 to 99 do
num[i] := i;
k := 0;
i := 1;
while k < 7 do
begin
if easy(num[i])
then
k := k + 1;
i := i + 2;
end;
write(num[i-2]);
end.
Немного разобрал бред, но программа бессмысленная и проверка(if </span>easy(num[i])) мне не понятна, что это за процедура easy?
Что за массив без его описания, автор разберись с кодом, поучи синтаксис Паскаля.
1) E) логический
2) <span>C) иерархическая, сетевая, реляционная, объектно-ориентированная;
3) </span><span>D) sqr(x)+sqr(y)<=sqr(R);
4) </span><span>B) (x>=0)or(y>=0);
5) </span><span>A) 10; (А =9 В=1 C=0)</span>