Решить данную задачу в Паскале через тип integer. Задача: Известна масса тела в
5-9 класс
|
килограммах. Определить сколько целых тонн содержится в данном числе.
Просьба: если вы не умеете составлять программу, то ничего не пишите.
program P1;
var
m : integer;
begin
writeln('Mass = ');
read(m);
writeln('Otvet: ', m div 1000);
readln;
readln;
end.
Другие вопросы из категории
купить на эти деньги?"
напишите пожалуйста как составить это в паскале) буду благодарна:)
змер исходного файла.
Мало времени просто, а уроков еще много.
Читайте также
массу кирпича. P=1400 кг/м3, V=25*12*6.5
Формула для нахождения массы: m= V*P
V - объём
m - масса
P - плотность
в квадрат.
P.S. задачу нужно решить через тип integer или real.
максимальный элемент и его номер. Отмечу как лучшее!
похудеть.по формуле рост минус 100...
написать то легко но учитель сказал что б говорилось на сколько худеть или поправиться надо ...(( ну ни как не могу додуматься(( помогите (( вот сама написаная программа
Program Zadacha1;
Var ves, rost, optVes:integer;
Begin
write('введите массу тела');
read(ves);
write('введите рост в см');
read(rost);
optVes:=rost-100;
if ves>optVes then write('вам необходимо похудеть' );
if ves<optVes then write('вам необходимо поправиться');
if ves=optVes then write ('ваш вес оптимальный')
End.