Ахах короче я не знаю что там происходит с этим человеком и Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет! Я приглашаю тебя, на моё день рождения✨. 27 ноября,позже напишу во сколько. Буду очень рада если ты ко мне сможешь прийти✨Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего !
С 13 - ти летия тебя!
Поздравляю☺️! Подарок передам когда приеду☺️)Привет
Поздравляю с др!
Я тебе жалаю всего самого наилучшего
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.
