"АйнабулаҚ" Негізгі орта мектебі

 Pascalда бағдарлама құрастыру

• 1-бөлім. Бүтін сандарға амалдар қолдану

• Оңай есептер

---

1-бөлім. Бүтін сандарға амалдар қолдану


Оңай есептер


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.