Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.