Составьте программу на вычисление кинетической энергии, если известны масса ученика и его скорость. При вводе значений 0 для переменных массы и скорости, программа выводит сообщение «Введите корректные значения». Вывод производить в label2.

210

395

Посмотреть ответы 1

Ответы на вопрос:

An0441

Информатика

4,8(37 оценок)

Var n, i, mn, mx, a: integer; begin writeln('vvedite n: '); readln(n); writeln('vvedite chisla iz otrezka (-20; 20): '); mn: =0; mx: =0; for i: =1 to n do begin readln(a); if (a mod 2)=0 then if mx< a then mx: =a; if (a mod 2)< > 0 then if mn< a then mn: =a; end; writeln('maximalnoe chetnoe =',mx); writeln('maximalnoe nechetnoe =',mn); readln(); end.