Регистрация
rus170
07.09.2021 20:12
Информатика
Есть ответ 👍

Напишите программу в ! составьте программу, показывающую, как меняется объём вещества массой 0,45 кг при изменении его плотности от 0,5 до 1 кг/м^3 с шагом 0,1 кг/м^3.

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

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

fox02713foxsi
fox02713foxsi
4,4(58 оценок)
Var p,m,v: real; i: integer; begin m: =0.45; p: =0.5-0.1; for i: =0 to round((1-0.5)/0.1) do   begin   p: =p+0.1;   v: =m/p;   writeln(p: 4: 1,' кг/м^3, v = ',v: 5: 3,' м^3');   end; end. результат:   0.5 кг/м^3, v = 0.900 м^3  0.6 кг/м^3, v = 0.750 м^3  0.7 кг/м^3, v = 0.643 м^3  0.8 кг/м^3, v = 0.563 м^3  0.9 кг/м^3, v = 0.500 м^3  1.0 кг/м^3, v = 0.450 м^3
anna992
anna992
4,4(48 оценок)
Var a,s : integer; begin   s: =0;   while s< > 1000 do   begin       readln(a); s: =s+a;       writeln('текущая сумма: ',s);   end; end.

Популярно: Информатика