Задать вопрос
21 сентября, 11:11

Найти произведение чисел введеных с клавиатуры, пока не будет введен 0

+3
Ответы (1)
  1. 21 сентября, 12:02
    0
    Var a, b:integer;

    begin;

    b:=1;

    a:=1;

    while a0 do

    begin;

    readln (a) ;

    if a=0 then break;

    b:=b*a;

    end;

    writeln (b) ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Найти произведение чисел введеных с клавиатуры, пока не будет введен 0 ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы