Составить программу нахождения суммы, разности, произведения и частного 3-х случайных чисел из диапазона от 0 до 50. (pascal)

182

273

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

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

389648

Информатика

4,6(79 оценок)

Program zadacha; var sum, raz, pr, ch, x, y, z: real; begin randomize; x: =random(50); y: =random(50); z: =random(50); sum: = x + y + z; writeln('сумма = ',sum: 4: 2); raz: = x - y - z; writeln('разность = ',raz: 4: 2); pr: = x * y * z; writeln('произведение = ',pr: 4: 2); ch: = x/y; ch: = ch/z; writeln('частное = ',ch: 4: 2); end.

тайфун78

Информатика

4,5(7 оценок)

Var m1, v1: integer; {первое тело} m2, v2: integer; {второе тело} begin write('введите массу первого тела в граммах'); readln(m1); write('введите объем первого тела в кубических сантиметрах'); readln(v2); write('введите массу второго тела в граммах'); readln(m2); write('введите объем второго тела в кубических сантиметрах'); readln(v2); if (m1/v1)> (m2/v2) then writeln ('плавает') else writeln('тонет'); readln; end.