Предмет: Информатика,
автор: muxat
Ришите задачу плиз. С помощью постусловия: Найдите произведение чисел которые делятся на 3
Ответы
Автор ответа:
0
//Pascal
var p,i,h:word;
begin
p:=1; //Переменная для хранения произведения чисел
a:=3;
writeln('Введите число ');
readln(h);
repeat
p:=p*a;
a:=a+3;
until a>=h;
writeln(p:5,a:5);
end.
var p,i,h:word;
begin
p:=1; //Переменная для хранения произведения чисел
a:=3;
writeln('Введите число ');
readln(h);
repeat
p:=p*a;
a:=a+3;
until a>=h;
writeln(p:5,a:5);
end.
Автор ответа:
0
Шестая стока сверху или снизу - repeat :)
Автор ответа:
0
Cпасибо) Только нужно var p,i,h)
Автор ответа:
0
Ну так везде, где встречается переменная "а" поменяйте ее на "i"
Автор ответа:
0
а 30 зачем?
Автор ответа:
0
Хорошо, я изменил код по вашему условию.
Интересные вопросы
Предмет: Биология,
автор: candyflosss71
Предмет: Математика,
автор: katerinabannih
Предмет: Другие предметы,
автор: ybrasevajbolat
Предмет: Химия,
автор: katyaeffect12
Предмет: Математика,
автор: vanons47