Задать вопрос
27 февраля, 00:46

Задача контролирующая программа. Предлагаеться 10 задач на сложение двух целых двузначных. Числа задаются случайным образом. Каждый ответ комментируется - правильно или вы ошиблись. после выполнения всех заданий выдаётся количество правильных ответов и выставляются оценки. Язык поскаль, делфи.

+4
Ответы (1)
  1. 27 февраля, 02:21
    0
    Var a, b, c, i, sum, cp:integer;

    begin

    sum:=0;

    cp:=0;

    Randomize;

    writeln ('Посчитайте сложение:') ;

    while i<10 do

    begin

    a:=random (40) + 10;

    b:=random (60) + 10;

    sum:=a+b;

    write ('Сколько будет ', a,'+', b,' = ') ;

    read (c) ;

    if c=sum then begin

    cp:=cp+1;

    writeln ('Молодец!') ;

    end else writeln ('Неправильно') ;

    i:=i+1;

    end;

    writeln ('Всего правильных ответов ', cp) ;

    write ('Оценка:') ;

    if (cp<=4) then write ('Очень плохо (2) ') else

    if (cp>=5) and (cp<=6) then write ('Удовлетворительно (3) ') else

    if (cp>=7) and (cp<=8) then write ('Хорошо (4) ') else

    if (cp>=9) then write ('Отлично! (5) ') ;

    end.
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Задача контролирующая программа. Предлагаеться 10 задач на сложение двух целых двузначных. Числа задаются случайным образом. Каждый ответ ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы