Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Урок 3 задачи 1, 2 и расширение задачи 2
Language:
Ada
Assembly
Bash
C#
C++ (gcc)
C++ (clang)
C++ (vc++)
C (gcc)
C (clang)
C (vc)
Client Side
Clojure
Common Lisp
D
Elixir
Erlang
F#
Fortran
Go
Haskell
Java
Javascript
Kotlin
Lua
MySql
Node.js
Ocaml
Octave
Objective-C
Oracle
Pascal
Perl
Php
PostgreSQL
Prolog
Python
Python 3
R
Rust
Ruby
Scala
Scheme
Sql Server
Swift
Tcl
Visual Basic
Layout:
Vertical
Horizontal
{Урок 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.
Show compiler warnings
[
+
]
Show input
edit mode
|
history
|
discussion