Начало Паскаль (простые задачи)

Начало Паскаль

Мирончик А.А.

• Напишите программу, которая считывает целое число и выводит текст, аналогичный приведенному в примере. Пробелы, знаки препинания, заглавные и строчные буквы важны!
• Входные данные

Вводится целое число.

• Выходные данные

Выведите ответ на задачу.

• Примеры

входные данные

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

a then max := b; writeln ('Наибольшее число ', max); end . Задача_1 " width="640"

• 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

b) and (ac) then max := a else if bthen max:=c else max:=b; writeln ('Наибольшее число ', max); end . Задача_2 " width="640"

• 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

b) and (ac) then writeln('наибольшее ',a) else if (ba) and (bc) then writeln('наибольшее ',b) else writeln('наибольшее ',c); end . Задача_2 " width="640"

• 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

b then     writeln('1')   else     if a       writeln('2')     else       writeln('0'); end. Задача_4 " width="640"

• 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