Задать вопрос
30 июня, 09:54

Дана программа на языке Паскаль.

Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 61, то "лёгкая категория" иначе "средняя категория".

На месте (?) вставьте пропуски

program ves;

const

A1='легкая категория';

A2='средняя категория';

var

f : integer;

begin

write ('введите вес спортсмена = ') ;

readln (?) ;

if (?) < (?) then writeln (A1) else writeln (A2) ;

readln;

end.

+1
Ответы (1)
  1. 30 июня, 10:12
    0
    Program ves;

    const

    A1='легкая категория';

    A2='средняя категория';

    var

    f : integer;

    begin

    write ('введите вес спортсмена = ') ;

    readln (f) ;

    if (f < 61) then writeln (A1) else writeln (A2) ;

    readln;

    end.

    Пример:

    введите вес спортсмена = 50

    легкая категория
Знаете ответ?
Сомневаетесь в ответе?
Найдите правильный ответ на вопрос ✅ «Дана программа на языке Паскаль. Программа определения весовой категории в зависимости от веса спортсмена. Если вес спортсмена меньше 61, ...» по предмету 📘 Информатика, а если вы сомневаетесь в правильности ответов или ответ отсутствует, то попробуйте воспользоваться умным поиском на сайте и найти ответы на похожие вопросы.
Смотреть другие ответы
Похожие вопросы по информатике
Var i, n: integer; Ves: array[1 ... 14] of integer; Begin Ves[1]: = 25; Ves[2]: = 21; Ves[3]: = 23; Ves[4]: = 28; Ves[5]: = 30; Ves[6]: = 25; Ves[7]: = 31; Ves[8]: = 28; Ves[9]: = 25; Ves[10]: = 28; Ves[11]: = 30; Ves[12]: = 27; Ves[13]: = 26;
Ответы (1)
Сделать так чтобы Writeln был заменен другим словом и повторялься не больше двух раз program choise; var N_M:integer; writeln (' введи номер месяца ') ; readln (N_M) ; case N_M of 1:writeln (' январь ') ; 2:writeln (' февраль ') ;
Ответы (1)
Как сделать теперь без массива (паскале) ? var nm:array of integer; j, l:integer; begin nm: = new integer[3] (random (20), random (20), random (20)) ; writeln ('nm[0] = ', nm[0]) ; writeln ('nm[1] = ', nm[1]) ; writeln ('nm[2] = ', nm[2]) ;
Ответы (1)
Имеется условный оператор:if D10 then writeln ('ура!') else writeln ('плохо ...') ; Какими операторами его можно заменить? Выберите несколько из 4 вариантов ответа: 1) if D=10 then writeln ('ура!') else writeln ('плохо ...
Ответы (1)
Помогите! Когда я ввожу ответ на вопрос, оно не отвечает на него! Это Паскаль Program Programm; var n:string; a:integer; b:integer; c:integer; answer: integer; begin write ('Как вас зовут:') ; readln (n) ; writeln ('Привет, ', n,'!
Ответы (1)