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.

0 0

4 года назад

Какие компьютерные программы вы знаете? Помогите!!!

Mollyj [2]

Microsoft Word, Microsoft Excel, Goole Chrome (браузер), Блокнот, Калькулятор, Пейнтбраш

0 0

3 года назад

Является ли данное выражение высказыванием: Число 13 является простым числом.

DImastPRIDE

Да.
13€R, потому оно является выражениям высказывания.

0 0

1 год назад

Задание с кратким ответом. Какое количество байтов будет передаваться за одну секунду по каналу передачи информации с пропускной

Maxmarra

Для начала переведем 100Мбит в байты.

100Мбитс=100*1024*1024/8=13107200 байт

13107200 байт*1с = 13107200 байт.

Ответ: 13107200 байт.

0 0

4 года назад