profile
Опубликовано 6 лет назад по предмету Информатика от Vinifull

Помогите с информатикой

  1. Ответ
    Ответ дан ZaXoD
    var
    a,b,c,z:integer;
    Begin
    a:=random(100)+1;
    b:=random(100)+1;
    if b>a then 
    Begin
    c:=a;
    a:=b;
    b:=c;
    End;
    c:=a-b;
    Writeln('Сколько будет ', a,'-',b);
    Readln(z);
    if z=c then Writeln('Молодец')
    else Writeln('Холодец ',a,'-',b,'=',c)
    End.
    1. Ответ
      Ответ дан ZaXoD
      Меня очень удивили "однозначные числа от 1 до 100", но ладно...
Самые новые вопросы