Решить данную в паскале через тип integer. : известна масса тела в килограммах. определить сколько целых тонн содержится в данном числе.
McEgorKa
2
23.04.2019 20:10
0
Другие вопросы по теме Информатика
Вадим1кр
01.09.2019 22:10
dyganovanton
01.09.2019 22:10
тай4
01.09.2019 22:10
youliya16
15.05.2020 22:24
pomogiiiimne
15.05.2020 22:24
nikadik2000
15.05.2020 22:24
1slishkomtupaya
04.11.2020 20:40
varyatitova20
11.08.2019 06:30
Libert02
26.12.2020 08:36
Популярные вопросы
- 1)300 К температурадағы газ 2,5 * 10-4 м3 көлемді алады . Егер температураны...
1 - В мае над кустом сирени жужжат мохнатые шмели Какой падеж существительных...
1 - 8 Circle the correct item.Maria always drives careful carefull1 Joseph is...
2 - 1. У чому ви вбачаєте попередження автора повісті «Собаче серце» М. Булгакова?...
1 - ПОСТРОИТЬ ГРАФИКВариант 21. На каком расстоянии следует расположить две линзыс...
3 - Відмінити вибірАндрій має кілька ланцюжків завдовжки у 5 і завдовжки у 7...
1 - АВ діаметр кола, через точки А В проведені дві дотичні до кола , трєтя дотична...
1 - Во к тексту the wonderful of computers/ 1 Who designed the Analytical Engine...
2 - Расставить запятые, выделить прич и деепр обороты...
1 - 1. Напишите наименьшее целое число x, для которого истинно высказывание:...
3
uses crt;
var
a, b, c: integer;
st : string;
begin
readln (a);
str (a, st);
if length (st)<=3 then writeln (0 ,' ton') else begin b:=a div 1000;
writeln (b, ' ton'); end;
readkey ;
end.