
Начало Паскаль
Мирончик А.А.

- Напишите программу, которая считывает целое число и выводит текст, аналогичный приведенному в примере. Пробелы, знаки препинания, заглавные и строчные буквы важны!
- Входные данные
Вводится целое число.
- Выходные данные
Выведите ответ на задачу.
- Примеры
входные данные
179
выходные данные
The next number for the number 179 is 180.
The previous number for the number 179 is 178.
Задача_2

Var x: real; begin read(x); writeln('The next number for the number ', x, ' is ', x + 1); writeln('The previous number for the number ', x, ' is ', x - 1); end.
Задача_2

- N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок достанется каждому школьнику?
- Входные данные
Программа получает на вход числа N и K .
- Выходные данные
Программа должна вывести искомое количество яблок.
- Примеры
входные данные
3 14
выходные данные
4
Задача_3

- var
- n,k:integer;
- begin
- writeln('Введите кол-во школьников:');
- read(n);
- writeln('Сколько яблок у них? ');
- read(k);
- writeln('Каждый школьник получит по', k div n,' яблок(у)');
- end .
Задача_3

- N школьников делят K яблок поровну, неделящийся остаток остается в корзинке. Сколько яблок останется в корзинке?
- Входные данные
Программа получает на вход числа N и K .
- Выходные данные
Программа должна вывести искомое количество яблок.
- Примеры
входные данные
3
14
выходные данные
2
Задача_4

- var
- n,k:integer;
- begin
- writeln('Введите кол-во школьников:');
- read(n);
- writeln('Сколько яблок у них? ');
- read(k);
- writeln('останется ',k mod n,' яблок');
- end .
Задача_4

- Дано натуральное число. Выведите его последнюю цифру.
- Входные данные
Вводится натуральное число.
- Выходные данные
Выведите ответ на задачу.
- Примеры
входные данные
179
выходные данные
9
Задача_5

- Var
- x: Integer;
- Begin
- Write('введите число: ');
- Readln(x);
- Writeln('последний символ: ', x mod 10);
- End .
Задача_5

- Дано двузначное число. Найдите число десятков в нем.
- Входные данные
Вводится двухзначное число.
- Выходные данные
Выведите ответ на задачу.
- Примеры
входные данные
42
выходные данные
4
Задача_6

- Var a:integer;
- begin
- readln(a);
- Write (a div 10);
- end .
Задача_6

- Дано неотрицательное целое число. Найдите число десятков в его десятичной записи (то есть вторую справа цифру его десятичной записи).
- Входные данные
Вводится неотрицательное целое число.
- Выходные данные
Выведите ответ на задачу.
- Примеры
входные данные
179
выходные данные
7
Задача_7

- Var a:integer;
- begin
- readln(a);
- writeln((a mod 100) div 10);
- end .
Задача_7

- Дано трехзначное число. Найдите сумму его цифр.
- Входные данные
Вводится трехзначное число.
- Выходные данные
Выведите ответ на задачу.
- Примеры
входные данные
179
выходные данные
17
Задача_8

- var sum,n:integer;
- begin
- writeln('Введите трех значное число');
- readln(n);
- sum:=(n div 100)+(n div 10 mod 10)+(n mod 10);
- writeln('Сумма цифр числа = ',sum);
- end .
Задача_8

- Дано целое число n . Выведите следующее за ним четное число.
- Входные данные
Вводится натуральное число.
- Выходные данные
Выведите ответ на задачу.
- Примеры
входные данные
7
выходные данные
8
входные данные
8
выходные данные
10
Задача_ 9

- var a,n: integer ;
- begin
- readln(n);
- a:=(n div 2)*2+2;
- writeln(a);
- end .
Задача_9

- Дано число n . С начала суток прош-ло n минут. Определите, сколько часов и минут будут показывать электронные часы в этот момент. Программа должна вывести два числа: количество часов (от 0 до 23) и количество минут (от 0 до 59). Учтите, что число n может быть больше, чем количество минут в сутках.
- Входные данные Вводится целое число n .
- Выходные данные Выведите ответ на задачу.
- Примеры
входные данные 150
выходные данные 2 30
входные данные 1441
выходные данные 0 1
Задача_ 10

- Var n: integer;
- begin
- readln(n);
- writeln((n div 60) mod 24, ' ', n mod 60)
- end .
Задача_10

- Электронные часы показывают время в формате h:mm:ss , то есть сначала записывается количество часов, потом обязательно двузначное количество минут, затем обязательно двузначное количество секунд. Количество минут и секунд при необходимости дополняются до двузначного числа нулями.
С начала суток прошло n секунд. Выведите, что покажут часы.
- Входные данные Вводится целое число n .
- Выходные данные Выведите ответ на задачу, соблюдая требуемый формат.
- Примеры
входные данные 3602
- выходные данные 1:00:02
- входные данные 129700
- выходные данные 12:01:40
Задача_ 11

- Var
- n, h, m, s: integer;
- begin
- read(n);
- n := n mod (3600*24);
- h := n div 3600;
- m := n mod 3600 div 60;
- s := n mod 60;
- write(h div 10, h mod 10, ':', m div 10, m mod 10, ':', s div 10, s mod 10);
- end .
Задача_11

Условный оператор

- Максимум из двух чисел
- Входные данные
Даны два целых числа, каждое число записано в отдельной строке.
- Выходные данные
Выведите наибольшее из данных чисел.
- Примеры
входные данные
1 2
выходные данные
2
Задача_ 1

- program qq;
- var a, b, max: integer;
- begin
- writeln('Введите два целых числа');
- read ( a, b );
- max := a;
- if b a then
- max := b;
- writeln ('Наибольшее число ', max);
- end .
Задача_1

- Ввести три числа и найти наибольшее из них.
- Пример:
- Введите три числа:
- 4 15 9
- Наибольшее число 15
Задача_ 2

- var a, b, c, max: integer;
- begin
- writeln('Введите 3 целых числа');
- read ( a, b, c );
- if (a b) and (ac) then
- max := a
- else
- if bthen
- max:=c
- else
- max:=b;
- writeln ('Наибольшее число ', max);
- end .
Задача_2

- var
- a,b,c:integer;
- begin
- writeln('введите три числа через пробел ');
- readln(a,b,c);
- if (ab) and (ac) then writeln('наибольшее ',a)
- else if (ba) and (bc) then writeln('наибольшее ',b)
- else writeln('наибольшее ',c);
- end .
Задача_2

- Требуется определить, является ли данный год високосным. (Напомним, что год является високосным, если его номер кратен 4, но не кратен 100, а также если он кратен 400.)
- Входные данные
Вводится единственное число - номер года (целое, положительное, не превышает 30000).
Выходные данные
- Требуется вывести слово YES, если год является високосным и NO - в противном случае.
- Примеры
- входные данные 2007
- выходные данные NO
- входные данные 2000
- выходные данные YES
Задача_ 3

- var a: integer;
- begin read(a);
- if (a mod 4 = 0) and (a mod 100 0) or (a mod 400 = 0)
- then
- writeln('YES')
- else writeln('NO');
- end.
Задача_3

- Какое из чисел больше?
- Входные данные
Даны два целых числа, каждое записано в отдельной строке.
- Выходные данные
Программа должна вывести число 1, если первое число больше второго, число 2, если второе больше первого, или число 0, если они равны.
- Примеры
входные данные 1 2
выходные данные 2
Задача_ 4

- var
- a, b:real;
- begin
- write('a = '); readln(a);
- write('b = '); readln(b);
- if a b then
- writeln('1')
- else
- if a
- writeln('2')
- else
- writeln('0');
- end.
Задача_4

Входные данные
Даны два целых числа, каждое записано в отдельной строке.
Выходные данные
Программа должна вывести число 1 , если первое число больше второго, число 2 , если второе больше первого, или число 0 , если они равны.
Примеры
входные данные
1 2
выходные данные
2
Задача_ 5