Напишите код программы для решения задачи Написать программу, определяющую, к какой весовой категории относится спортсмен: до 69 кг — легкий вес; до 85 кг – средний вес; до 105 кг – Тяжелый вес; свыше 105 кг – супертяжелый вес. Мой ответ
Данная программа выдаёт ошибку. Давайте для начала её отладим Program Summ; Var a, b, c: integer; Begin Writeln ('введите первое число: ' ); Readln (a); Writeln ('Введите 2-рое число:'); Readln (b); c:a+b; {вот на этом этапе компилятор нам выдаст ошибку строка должна выглядеть так c:=a+b; } writeln ( 'Результат =' ,c); End.
ну а теперь можно её и разобрать Var a, b, c: integer; Объявляем переменные Begin Writeln ('введите первое число: ' ); выводим на экран предложение ввести число Readln (a); присваиваем переменной А введённое число Writeln ('Введите 2-рое число:'); выводим на экран предложение ввести число Readln (b); присваиваем переменной В введённое число c:=a+b; Присваиваем переменной С сумму чисел А и В writeln ( 'Результат =' ,c); Выводим результат End.
Паскаль АВС. Программа вывводит дату следующего дня. Чтоб не утяжелять программу, не стал писать проверку правильности введения даты - то есть пользователь должен вводить только правильные цифры :)
Program Upmixer; var day, month, year:integer; begin writeln('Введите дату:'); write('День:'); read (day); write('Месяц:'); read (month); write('Год:'); read (year); day:=day+1; {если было введено 29 февраля високосного года} if (((year mod 4)=0) and ((year mod 100)<>0) and (month=2) and (day=30)) then begin day:=1; month:=month+1; end; {если было введено 28 февраля невисокосного года} if (((year mod 4)<>0) and (month=2) and (day=29)) then begin day:=1; month:=month+1; end; {другие дни} if ((day=31) and ((month=4) or(month=6) or (month=9) or (month=11))) then begin day:=1; month:=month+1; end; if ((day=32) and ((month=1) or(month=3) or (month=5) or (month=7) or (month=8) or (month=10))) then begin day:=1; month:=month+1; end; {31 декабря} if ((day=32) and (month=12)) then begin day:=1; month:=1; year:=year+1; end; writeln('Завтра ', day,' ',month,' ',year); end.
program weight_class;
var x, y:integer;
label 10,20;
begin
10:Writeln ('введите вес спорсмена в кг');
Readln(x);
if x<69 then
Writeln('Спортсмен весом ', x, 'кг, относится к легкой категории');
if (x>=69) and (x<85) then
Writeln('Спортсмен весом ', x, 'кг, относится к средней категории');
if (x>=85) and (x<105) then
Writeln('Спортсмен весом ', x, 'кг, относится к тяжелой категории');
if x>=105 then
Writeln('Спортсмен весом ', x, 'кг, относится к супертяжелой категории');
Writeln(' Будете еще вводить вес спортсмена: 1-Да, другая любая цифра-Нет');
Readln (y);
if y=1then
goto 10;
end.
Объяснение: