Консультация № 193626
30.09.2018, 20:08
0.00 руб.
0 1 1
Здравствуйте! Прошу помощи в следующем вопросе:

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

Обсуждение

давно
Старший Модератор
31795
6196
02.10.2018, 13:48
общий
это ответ
Здравствуйте, svrvsvrv!

Код в приложении:
[code lang=pascal]var
a:string;
b,c,d:integer;
begin
b:=1;
c:=1;
d:=3;
randomize;
repeat
if b<>c then writeln('bad result, again');
b:=random(10);
c:=random(10);
write('Please, calculate ',b,'*',c,'=');
b:=b*c;
readln(c);
dec(d);
until (d=0)or(b=c);
if b=c then
begin
write('What is your name:');
readln(a);
writeln('Congratulations:',a,',',a);
end else writeln('I',chr(39),'m going to sleep');
end.[/code]
Удачи!
5
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа