Работа выполнена для городской научно-практической конференции «Информационные технологии в XXI веке»
Вложение | Размер |
---|---|
![]() | 25.51 КБ |
var
c:real;
x:integer;
begin
writeln('Выберите норматив(юноши 16-17 лет)');
writeln('1-Бег на 30 метров, 2-Бег на 100 метров, 3-Подтигивание из виса на высокой преркладине');
readln(x);
case x of
1: begin
writeln('Введите результат');
readln(c);
if c>4.9 then writeln('2');
if (c>4.7) and (c<=4.9) then writeln('3');
if (c>4.4) and (c<=4.7) then writeln('4');
if c<=4.4 then writeln('5');
end;
2: begin
writeln('Введите результат');
readln(c);
if c>14.6 then writeln('2');
if (c>14.3) and (c<=14.6) then writeln('3');
if (c>13.4) and (c<=14.3) then writeln('4');
if c<=13.4 then writeln('5');
end;
3: begin
writeln('Введите результат');
readln(c);
if c<9 then writeln('2');
if (c>=9) and (c<11) then writeln('3');
if (c>=11) and (c<14) then writeln('4');
if (c>=14) then writeln('5');
end;
end;
end.
Какая бывает зима
Военная хитрость
Снежная зима. Рисуем акварелью и гуашью
Финист - Ясный сокол
Бородино. М.Ю. Лермонтов