Составьте программу,которая загадывает пользователю загадку и дает ему три попытки отгадать ее.Работа программы сопровождается диалогом с пользователем.Желательно применить конкатенацию введенных строк.
Ответы
Ответ дал:
0
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.
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.
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
10 лет назад
10 лет назад