Самостоятельная работа по информатике 10 класс.

var

i,j,k: integer;

a,b,c: array [1..30] of integer;

begin

randomize;

j: =0;

k: =0;

for i: =1 to 30 do

begin

a[i]: =random(80)-30;

if a[i] mod 2 =0 then

begin

j: =j+1;

b[j]: =a[i]

end

end;

for i: =30 downto 1 do

if a[i]< 0 then

begin

k: =k+1;

c[k]: =a[i];

end;

for i: =1 to j do

writeln(b[i]);

for i: =1 to k do

writeln(c[i]);

end.

это идут дедешка папа и сын.дедушка папа своиму сынку а его сын папа своему сыну папа сын своего дедушки сын сын своему папе!

оба ответа подходят в языке

но логичнее нет

просто у нет в 2 функции: согласие с отрицанием и отрицание отрицания

ответ нет, на рисунке белая скатерть

(я выразил отрицание к вопросу)

словом нет можно выразить и отрицание и согласие

да здесь вообще не подходит его не рассматривает

у нет 2 варианта либо согласие с отрицанием - нет, скатерть не белая. либо отрицание вопроса - нет, белая.

read (n);

i : = 1;

repeat

  writeln(i*i);

  i : = i + 1;

untill i*i > n