vara: array[1..500] of integer; i,k,n: integer; begink: =0; write('n= '); readln(n); for i: =1 to n do readln(a[i]); for i: =1 to n do k: =k+a[i]*a[i+1]; writeln(k); end.
Ответ дал: Гость
program xxx;
var i, n, s : integer;
begin
write('введите число n=');
readln(n);
s: =0;
i: =2;
while i< =n do
begin
s: =s+i;
i: =i+2
end;
write('сумма четных чисел =', s);
readln
end.
Ответ дал: Гость
напишите цель . то что у вас написано - полный бред. который после устранения синтаксических ошибок(а их тут не одна) работать не будет
Ответ дал: Гость
оба ответа подходят в языке
но логичнее нет
просто у нет в 2 функции: согласие с отрицанием и отрицание отрицания
ответ нет, на рисунке белая скатерть
(я выразил отрицание к вопросу)
словом нет можно выразить и отрицание и согласие
да здесь вообще не подходит его не рассматривает
у нет 2 варианта либо согласие с отрицанием - нет, скатерть не белая. либо отрицание вопроса - нет, белая.
при этом первый вариант не верный так как скатерть белая, то есть единственно верный это - нет, скатерть белая (отрицание вопроса)
Популярные вопросы