Составьте программу, которая загадывает пользователю загадку и дает ему три попытки отгадать ее. Работа программы сопровождается диалогом с пользователем. Желательно применить конкатенацию введенных строк.

Question

Информатика

Леонтинка

20 июля, 17:37

Составьте программу, которая загадывает пользователю загадку и дает ему три попытки отгадать ее. Работа программы сопровождается диалогом с пользователем. Желательно применить конкатенацию введенных строк.

+2

Ответы (1)

Знаете ответ?

Леонила · Answer 1

Var a, d:integer;

begin

write ('Введите число: ') ;

readln (a) ;

write ('d,' ') ;

for d:=2 to (a div 2) do

if a mod d=0 then (write (d,' ') ;

write (a) ;

end.