Основная средняя школа "Айнабулак"

1.1. Дано расстояние в сантиметрах. Найти число полных метров в нем.
Вариант решения задачи:

uses crt; var s,m:integer; begin clrscr; write('s='); readln(s); m:=s div 100; writeln(s,' см содержит ',m,' полных метров'); readkey end.

1.2. Дана масса в килограммах. Найти число полных центнеров в ней
Вариант решения задачи:

uses crt; var k,t:integer; begin clrscr; write('k='); readln(k); s:=k div 100; writeln(k,' кг содержит ',s,' полных центнеров'); readkey end.

1.3. Дана масса в килограммах. Найти число полных тонн в ней
Вариант решения задачи:

uses crt; var k,m:integer; begin clrscr; write('m='); readln(m); k:=m div 1000; writeln(m,' м содержит ',k,' полных километров'); readkey end.

1.4. Дано расстояние в метрах. Найти число полных километров в нем
Вариант решения задачи:

uses crt; var k,t:integer; begin clrscr; write('k='); readln(k); t:=k div 1000; writeln(k,' кг содержит ',t,' полных тонн'); readkey end.

1.5. С некоторого момента прошло 234 дней. Сколько полных недель прошло за этот период?
Вариант решения задачи:

uses crt; var n:integer; begin clrscr; n:=234 div 7; writeln('n=',n); readkey end.

1.6. С начала суток прошло n секунд. Определить:
а) сколько полных часов прошло с начала суток;
б) сколько полных минут прошло с начала очередного часа;
в) сколько полных секунд прошло с начала очередной минуты.
Вариант решения задачи:

uses crt; var n,ch,s,m:integer; begin clrscr; write('n='); readln(n); ch:=n div 3600; m:=n mod 3600 div 60; s:=n mod 3600 mod 60; writeln('n=',n,' ch=',ch,' m=',m,' s=',s); readkey end.