Ответ:
program pred;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
while i <= n do begin
if i mod 2 = 0 then
s := s + i;
Inc (i);
end;
WriteLn ('Сумма = ', s);
ReadLn;
end.
- - - - - - - - - - - - - -
program post;
var
n, i, s: Integer;
begin
Write ('Введите N: ');
ReadLn (n);
s := 0;
i := 1;
repeat
if i mod 2 = 0 then
s := s + i;
Inc (i);
until i > n;
WriteLn ('Сумма = ', s);
ReadLn;
end.
(5>30) v ( !(even(5) & (5<10) )
0 v ( 1 & 1) = 1
Истина
(8>30) v ( !(even(8) & (8<10) )
0 v ( 0 & 1 ) = 0
Ложь
(27>30) v ( !(even(27) & (27<10) )
0 v ( 1 & 0 ) = 0
Ложь
(42>30) v ( !(even(42) & (42<10) )
1 v ( 0 & 0 ) = 1
Истина
Многое зависит от телефона и приложения установленного там:
Тебе надо выбрать картинку и найти слово "Анимация" и там уже выбрать нужный эффект
Напиши, после каких действий это окно появилось? Из какого файла, программы?
Тут если переводить с английского, то read - читать x - неизвестный, а значит данная программа не может прочитать какую либо команду.Так же тут видно что программа много раз пыталась повторить команду и у нём это никак не получалось. Ответь на вопросы заданные мной выше и если я смогу прочитать их то отвечу)
1) PowerBank может быть сломан, бракован. 2) проверь usb штекер, проверь разъём для usb, они могут быть сломаны. 3) проверь заряжен ли PowerBank может быть просто он не заряжен?