Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Урок 3 задачи 1, 2 и расширение задачи 2
{Урок 3,задача 1} var x, s, h, m, d : integer; begin readln (x); s := x mod 10 + (x div 10) mod 10 + (x div 100) mod 10 + (x div 1000);// mod 10 можно не писать; writeln (s); {Урок 3,задача 2 расширенная на подсчёт количества дней} readln (x); d := x div 86400; h := (x mod 86400) div 3600; m := (x - d * 86400 - h * 3600) div 60; // (x mod 3600) div 60; s := (x - d * 86400 - h * 3600) mod 60; // (x mod 60 ) mod 60; // второй мод можно не писать writeln (d, 'd ', h, 'h ', m, 'm ', s, 's'); writeln (d*86400+h*3600+m*60+s); // проверяем {Урок 3,задача 2 продолжение: вводим теперь не секунды,а минуты} writeln ('Введите количество минут:'); readln (x); d := x div 60 div 24; // количество суток (дней) h := x div 60 mod 24; // количество часов m := x mod 60; // количество минут writeln (d, 'd ', h, 'h ', m, 'm '); writeln (d*24*60+h*60+m); //проверяем end.
run
|
edit
|
history
|
help
0
Main-main
janja - naloga 2 - 25.1.2012
1
test27
печать символов
Mengeja dari belakang
Урок 6. Задача 9 (1532). Числа Фибоначчи
09 ariketa
2
Squad equation