Составьте программу, которая задает пользователю вопрос, требующий однозначного ответа; предлагает пользователю несколько подсказок и попыток. Если он угадал, то спрашивает его имя и выводит на экран поздравление, являющееся конкатенацией нескольких строк, дважды употребив его имя.

Question

Информатика

Клавдия

4 марта, 15:40

Составьте программу, которая задает пользователю вопрос, требующий однозначного ответа; предлагает пользователю несколько подсказок и попыток. Если он угадал, то спрашивает его имя и выводит на экран поздравление, являющееся конкатенацией нескольких строк, дважды употребив его имя.

+3

Ответы (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.