vladimir72tatarkov1317
?>

Code.org 5 класс 2 курс 7 цикл.ответы на все во

Информатика

Ответы

nevzorova
Ошибки

var p,i,x,count: integer;

begin

count := 0;

p := 0 ;

for i := 1 to 4 do begin

read (x);

if x >= 0 then begin

p := p*x;

count := count+1

end

end;

if count > 0 then begin

writeln(х );

writeln(p);

end

else

writeln('NO')

end

Переменная p в начале равняется нулю. В эту переменную будет записываться общее произведение неотрицательных чисел, умножая p на каждое неотрицательное число, но при умножении любого числа на 0 произведение будет 0, поэтому нужно в начале присвоить ей единицуВ конце выводится последнее введённое число, а нужно вывести количествоПосле end не стоит точкаПравильный вариант программы

var p,i,x,count: integer;

begin

count := 0;

p := 1;

for i := 1 to 4 do begin

read (x);

if x >= 0 then begin

p := p*x;

count := count+1

end

end;

if count > 0 then begin

writeln(count);

writeln(p);

end

else

writeln('NO')

end.

maria
Ошибки

var n, s: longint;

i: integer;

begin

s:=1 ;

for i:=1 to 6 do begin

readln(n);

if i mod 2 = 0 then

s := s + n;

end;

write(s);

end.

Из за того что сумма в начале равняется единице, то при конечном выводе суммы она всегда будет больше чем нужно на единицу, а при ненахождении чётных чисел вывод будет 1 , а не 0Проверяется чётность номера введённого числа а не само число, то есть если число было введено вторым, но при этом оно нечётное, то программа считает его как чётноеПравильный вариант программы

var n, s: longint;

i: integer;

begin

s:=0;

for i:=1 to 6 do begin

readln(n);

if n mod 2 = 0 then

s := s + n;

end;

write(s);

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Code.org 5 класс 2 курс 7 цикл.ответы на все во
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

zamkova836
kotofei147516
spodobnyi
valueva260860
vladislavk-market2
M19026789436
vera4
eeirikh
Semenova1719
komarov-dmitriy
elizabetmaslova3
NIKOLAI
zaalmix
alekseisamohvolov7
Милита1065