Разноуровневые задания по программированию на Паскале
тест по информатике и икт (7 класс) по теме

1. Компьютер отбирает детей для участия в съёмках фильма. Он запрашивает возраст. Если ребёнок оказывается не младше 7 и не старше 10 лет, компьютер выдаёт ответ: «Подходишь». Если нет, то «Не подходишь».

3. Компьютер отбирает детей для участия в съёмках фильма. Он запрашивает возраст и рост. А отбирает на съёмки либо тех, кто младше 10 лет, либо тех, у кого рост меньше 140 см.

4. Человек вводит в компьютер число. Если оно находится в интервале от 28 до 30, то нужно напечатать текст ПОПАЛ, если оно больше 30 — то ПЕРЕЛЁТ, если оно меньше 28, то НЕДОЛЁТ.

5. Компьютер запрашивает радиус круга и сторону квадрата. Надо определить, у какой фигуры площадь больше (ответ должен иметь вид: «У круга (квадрата) площадь больше»).

6. В компьютер вводятся два числа. Если первое больше второго, то вычислить их сумму, иначе - произведение. После этого компьютер должен напечатать текст: «ЗАДАЧА РЕШЕНА».

7. С клавиатуры вводятся 3 числа. Нужно вычислить сумму двух наибольших из них.

8. Составить алгоритм решения линейного уравнения ax + b = 0. Учесть все возможные случаи в зависимости от исходных данных (одно решение, бесконечно много решений, нет решений).

9. Ввести с клавиатуры число. Определить,  делится ли оно на 13.

10.  Ввести с клавиатуры двузначное число. Определить,  равна ли сумма его цифр 10.

11. Ввести с клавиатуры трёхзначное число. Определить,  является ли оно палиндромом (т.е. одинаково читается справа налево и слева направо). Например, числа 121, 343 – палиндромы.

12. Ввести с клавиатуры два числа. Проверить, равно ли второе число нулю. Если да, то вывести на экран фразу: «На ноль делить нельзя!» Если нет, то найти их частное.

13. Ввести с клавиатуры двузначное число. Определить,  делится ли оно на сумму своих цифр.

 1. Найти результат выполнения алгоритма при n=1 и n=4

_____________________________________________________________________________        

2. Найти результат выполнения алгоритма при:      1) A=7; B=8; C=9

                                                        2) A=6; B=6; C=-10

3. A=6; B=10; C=-10                                              

  7. Определить значение переменной а после выполнения фрагмента алгоритма.

8. Определить значение переменной р после выполнения фрагмента алгоритма.

   9. Определить значение переменной k после выполнения фрагмента алгоритма.

10. Определить значение переменной m после выполнения фрагмента алгоритма.

4. Определить значение переменной m после выполнения фрагмента алгоритма.

3. Определить значение переменной а после выполнения фрагмента алгоритма.

                ______________________________________________________________________________

5. Определить значение переменной n после выполнения фрагмента алгоритма.

     6. Определить значение переменной а после выполнения фрагмента алгоритма.

11*. Определить значение переменной а после выполнения фрагмента алгоритма.

12. Определить значение переменной а после выполнения фрагмента алгоритма.

13. Определить значение переменной а после выполнения фрагмента алгоритма.

14. Определить значение переменной n после выполнения фрагмента алгоритма.

1. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; writeln(a:5:2,b:3); writeln(a:5:2,b); writeln(a*b:5:2);

2. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=5; writeln(b,c); writeln(a:5:3,c); writeln(‘a+b=’,b+c);

3. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=-3.052; c:=-1; writeln(a:3:1,b:5:2); writeln(‘a:5:2,b’); writeln(‘a*b=’,a:3:1,c);

4. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-1; writeln(c:2,b:3); writeln(a:5:2,b+c); writeln(‘a*b:5:2’,c);

5. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-2; writeln(a*c:5:2,b:3); writeln(‘a:5:2=’,b); writeln(c:5,b-1);

6. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-3; writeln(‘a:5:2,b:3’); writeln(b/c:3:1,b); writeln(a*b:5:3);

7. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-2; writeln(a+c:5:2,b:3); writeln(a:5:2,’b’); writeln(5*2);

8. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-1; writeln(a*c:5:2,c:3); writeln(‘a:5:2’,b); writeln(a*b-c:5:2);

9. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=-3; c:=4; writeln(a:6:4,b:3,c); writeln(a:5:2,’b*c:2’); writeln(‘a=’,a*b:4);

10. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-2; writeln(a:5:2,c:3); writeln(‘a:5:2’,b+c); writeln(c*b:5:2,54);

11. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-1; writeln(a*c:5:2,b:2); writeln(a:5:2,’b/c’); writeln(5/2,5-c);

12. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-1; writeln(a:5:2,b:3,c:4); writeln(‘a-b=’,c,3*b); writeln(105);

13. Что будет выведено на экран в результате выполнения фрагмента программы:

A:=3.1415; b:=3; c:=-1; writeln(c:3,a:7:2,b:3); writeln(b,-c*3); writeln(‘a*’,b:3);

1. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите год вашего рождения!»

Пользователь вводит дату.

Компьютер вычисляет возраст пользователя и выводит на экране: «Сейчас вам … лет».

2. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите скорость в км/ч».

Пользователь вводит действительное число.

Компьютер переводит скорость в м/с и сообщает: «Эта скорость составляет …м/с».

3. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину стороны квадрата».

Пользователь вводит действительное число.

Компьютер вычисляет периметр и площадь квадрата и сообщает:

 «Периметр квадрата =…

   Площадь квадрата =…»

4. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину и ширину прямоугольника».

Пользователь вводит 2 действительных числа.

Компьютер вычисляет периметр и площадь прямоугольника и сообщает:

«Периметр прямоугольника =…

  Площадь прямоугольника =…»

5. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину катетов прямоугольного треугольника».

Пользователь вводит 2 действительных числа.

Компьютер вычисляет длину гипотенузы, периметр и площадь треугольника и сообщает:    «Длина гипотенузы =

                       Периметр треугольника =…

                      Площадь треугольника =…»

6. Составить следующий диалог компьютера с пользователем.

Компьютер: «Внесите сумму на ваш расчётный счёт».

Пользователь вводит действительное число.

Компьютер вычисляет сумму вклада с учётом 3% годовых и сообщает:

«Через год ваш вклад составит … рублей.

       А через 2 года - … рублей».

7. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите радиус окружности».

Пользователь вводит действительное число.

Компьютер вычисляет периметр и площадь окружности и сообщает:

«Периметр окружности =…

  Площадь окружности =…»

________________________________________________________________

8. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину в дюймах».

Пользователь вводит действительное числа.

Компьютер вычисляет их среднее арифметическое и среднее геометрическое и выводит результаты на экран.

9. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите скорость ветра в м/с».

Пользователь вводит действительное число.

Компьютер переводит скорость в км/ч и выводит ответ на экран: «Эта скорость составляет … км/ч».

10. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите ваш рост».

Пользователь вводит число.

Компьютер, используя формулу Лоренца, вычисляет нормальный вес = рост/2 – 25.

Компьютер: «По формуле Лоренца, ваш нормальный вес составляет … кг».

11. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите год вашего рождения!»

Пользователь вводит дату.

Компьютер вычисляет возраст пользователя в 2020 году и сообщает: «В 2020 году вам будет … лет».

12. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длины сторон треугольника!»

Пользователь вводит 3 действительных числа.

Компьютер вычисляет периметр треугольника и выдаёт надпись: «Периметр треугольника равен … см».

13. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите два действительных числа»

Пользователь вводит числа.

Компьютер вычисляет сумму их квадратов и выдаёт надпись: «Сумма их квадратов равна … ».

14. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите два действительных числа»

Пользователь вводит числа.

Компьютер вычисляет сумму их кубов и выдаёт надпись: «Сумма их кубов равна … ».

15. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите два действительных числа»

Пользователь вводит числа.

Компьютер вычисляет квадрат их суммы и выдаёт надпись: «Квадрат их сумма равен … ».

16. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите два действительных числа»

Пользователь вводит числа.

Компьютер вычисляет разность их квадратов и выдаёт надпись: «Разность их квадратов равна … ».

17. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину ребра куба».

Пользователь вводит действительное число.

Компьютер: «Объём куба = …

                      Площадь поверхности куба = …».

18. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину окружности».

Пользователь вводит действительное число.

Компьютер: «Радиус окружности = …

                      Площадь круга = …».

19. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину в дюймах».

Пользователь вводит действительное число.

Компьютер переводит эту длину в сантиметры (1 дюйм = 2,54 см).

Компьютер: «Эта длина составляет … сантиметров».

20. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину в сантиметрах».

Пользователь вводит действительное число.

Компьютер переводит эту длину в дюймы (1 дюйм = 2,54 см).

Компьютер: «Эта длина составляет … дюймов».

21. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину в аршинах».

Пользователь вводит действительное число.

Компьютер переводит эту длину в метры (1 аршин = 0,711 м).

Компьютер: «Эта длина составляет … метров».

22. Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину в метрах».

Пользователь вводит действительное число.

Компьютер переводит эту длину в метры (1 аршин = 0,711 м).

Компьютер: «Эта длина составляет … аршин».

23.  Составить следующий диалог компьютера с пользователем.

Компьютер: «Введите длину в милях».

Пользователь вводит действительное число.

Компьютер переводит эту длину в километры (1 миля = 1,61 км).

Компьютер: «Эта длина составляет … метров».

1. Заполнить массив из 20 элементов нулями и вывести его на экран.

2. Ввести с клавиатуры действительное число. Заполнить массив из 10 элементов числами, равными введённому, и вывести его на экран.

3. Заполнить массив из 30 элементов квадратами натуральных чисел и вывести его на экран.

4. Заполнить массив из 10 элементов числами: 0, 2, 4, 6,…, 18 и вывести его на экран.

5. Заполнить массив из 13 элементов числами, кратными 5, и вывести его на экран.

6. Заполнить массив из 10 элементов числами: 10, 9,…,1 и вывести его на экран.

7. Заполнить массив из 20 элементов числами ряда Фибоначчи и вывести его на экран.

8. Заполнить массив из 15 элементов числами: 0, 0.1, 0.2,… и вывести его на экран.

9. Заполнить массив из 15 элементов числами: 0, -0.1, -0.2,… и вывести его на экран.

10. Заполнить массив из 15 элементов числами: 1, -2, 3, -4,… и вывести его на экран.

11. Заполнить массив из 15 элементов числами:1,0,1,0,1,0,…,1 и вывести его на экран.

12. Заполнить массив из 21 элементов числами: 1,2,0,1,2,0,1,2,0… и вывести его на экран.

13. Заполнить массив из 20 элементов числами 10.1, 13.1, 16.1, 19.1,… и вывести его на экран.

14. Заполнить массив из 10 элементов степенями числа 2: 1, 2, 4, ... и вывести его на экран.

15. Заполнить массив из 10 элементов степенями числа 1,5 (с точностью до 4 знаков после запятой): 1.5, 2.25, … и вывести его на экран.

______________________________________________________________

16.  Заполнить массив из 21 элементов числами: -10,-9,-8, …, 0,…,10 и вывести его на экран.

______________________________________________________________

Составьте программу для нахождения суммы по следующей формуле:

S =

Составьте программу для нахождения суммы по следующей формуле:

S =

Составьте программу для нахождения суммы по следующей формуле:

S =

Составьте программу для нахождения суммы по следующей формуле:

S =

Составьте программу для нахождения суммы по следующей формуле:

S =

Составьте программу для нахождения суммы по следующей формуле:

S =

Составьте программу для нахождения суммы по следующей формуле:

S =

Составьте программу для нахождения суммы по следующей формуле:

S =

1. Вариант №1

Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [-20,50].

Вывести  все элементы, в записи которых есть цифра 5 или 7.

5. Вариант №2

Дан массив целых чисел из 10 элементов, заполненный случайным образом числами из промежутка [-40,30].

Вывести  на экран все элементы, которые состоят из одинаковых цифр.

8. Вариант №3

Дан массив целых чисел из 12 элементов, заполненный случайным образом числами из промежутка [-10,60].

Вывести  на экран все элементы, в записи которых последняя цифра чётная.

11. Вариант №4

Дан массив целых чисел из 25 элементов, заполненный случайным образом числами из промежутка [-35,75].

Вывести  на экран все элементы, первая цифра которых чётная.

16. Вариант №5

Дан массив целых чисел из 20 элементов, заполненный случайным образом числами из промежутка [-45,95].

Вывести  на экран все элементы, кратные 7 и принадлежащих промежутку [a; b] (a и b вводятся с клавиатуры).

20. Вариант №6

Дан массив целых чисел из 10 элементов, заполненный случайным образом числами из промежутка [-40,30].

Вывести  на экран все чётные элементы, стоящие на нечётных местах.

21. Вариант №7

Дан массив целых чисел из 32 элементов, заполненный случайным образом числами из промежутка [-13,65].

Вывести  на экран  все элементы, в записи которых есть цифра 3 или 2.

25. Вариант №8

Дан массив целых чисел из 18 элементов, заполненный случайным образом числами из промежутка [-40,80].

Вывести  на экран все элементы, которые состоят из одинаковых цифр.

28. Вариант №9

Дан массив целых чисел из 12 элементов, заполненный случайным образом числами из промежутка [-21,99].

Вывести  на экран все элементы, в записи которых последняя цифра нечётная.

31. Вариант №10

Дан массив целых чисел из 25 элементов, заполненный случайным образом числами из промежутка [-60,90].

Вывести  на экран все элементы, первая цифра которых совпадает с заданной.

34. Вариант №11

Дан массив целых чисел из 33 элементов, заполненный случайным образом числами из промежутка [0,95].

Вывести  на экран все элементы, кратные 13 .

37. Вариант №12

Дан массив целых чисел из 44 элементов, заполненный случайным образом числами из промежутка [-18,30].

Вывести  на экран элементы с 13 по 26.

38. Вариант №13

Дан массив целых чисел из 15 элементов, заполненный случайным образом числами из промежутка [-20,50].

Вывести  все элементы, значения которых больше 30.

42. Вариант №14

Дан массив целых чисел из 10 элементов, заполненный случайным образом числами из промежутка [-40,30].

Вывести  на экран все элементы, в которых первая цифра больше второй.

46. Вариант №15

Дан массив целых чисел из 24 элементов, заполненный случайным образом числами из промежутка [-10,60].

Вывести  на экран все элементы, в записи которых все цифры чётные.

50. Вариант №16

Дан массив целых чисел из 25 элементов, заполненный случайным образом числами из промежутка [-35,75].

Вывести  на экран все элементы, первая цифра которых больше 5.

55. Вариант №17

Дан массив целых чисел из 20 элементов, заполненный случайным образом числами из промежутка [-45,95].

Вывести  на экран все элементы, кратные 17 .

59. Вариант №18

Дан массив целых чисел из 10 элементов, заполненный случайным образом числами из промежутка [-40,30].

Вывести  на экран все чётные элементы, стоящие на нечётных местах.

60. Вариант №19

Дан массив целых чисел из 32 элементов, заполненный случайным образом числами из промежутка [-13,65].

Вывести  на экран  все элементы, в записи которых есть цифра 3 или 2.

64. Вариант №20

Дан массив целых чисел из 18 элементов, заполненный случайным образом числами из промежутка [-40,80].

Вывести  на экран все положительные элементы.

68. Вариант №21

Дан массив целых чисел из 12 элементов, заполненный случайным образом числами из промежутка [-21,99].

Вывести  на экран все элементы, в записи которых все цифры нечётные.

71. Вариант №22

Дан массив целых чисел из 25 элементов, заполненный случайным образом числами из промежутка [-60,90].

Вывести  на экран все элементы, последняя цифра которых совпадает с заданной.

76. Вариант №23

Дан массив целых чисел из 33 элементов, заполненный случайным образом числами из промежутка [0,95].

Вывести  на экран все элементы, индексы которых больше 15.

79. Вариант №24

Дан массив целых чисел из 44 элементов, заполненный случайным образом числами из промежутка [-18,30].

Вывести  на экран все отрицательные элементы.

1. Используя циклы, вывести на экран ряд чисел: 1.0, 1.1, 1.2, 1.3, …, 2.0

2. Используя циклы, вывести на экран ряд чисел: 1.0, 0.9, 0.8, 0.7, …, -1.0

3. Используя циклы, вывести на экран ряд чисел: 10, 11, 12, 13, …, 23.

4. Используя циклы, вывести на экран ряд чисел: 40, 39, 38, …, 12.

5.   Используя циклы, вывести на экран таблицу умножения на 4.

6.   Используя циклы, вывести на экран таблицу умножения на 9.

7.   1 кг творога стоит 115 руб. Вывести на экран таблицу стоимости творога массой 100 г, 200 г, …, 900 г.

8.   1 маркер стоит 45 руб. 25 коп. Вывести на экран таблицу стоимости 2, 3,…20 маркеров.

9. Процентная ставка по вкладу в банке составляет 5% в год. Сколько будет денег на счету человека, положившего 10000 рублей, через 2, 3,…, 10 лет?

10. Спортсмен каждый день увеличивает свои показатели на 10%. Сколько он пробежит во 2, 3,…, 10-й день, если его пробег в первый день составил 1 км?

11. Каждые 3 часа амёба делится на 2. Сколько амёб будет через 2, 3, …, 10 часов?

12. Вывести на экран все чётные числа от 0 до 50.
13. Запрограммировать вывод на экран стихотворение:

10 поросят пошли купаться в море.

10 поросят резвились на просторе.

Один из них утоп – его сложили в гроб,

И вот вам результат – 9 поросят…

где в каждом куплете количество поросят уменьшается на 1.

14. Запросить с клавиатуры натуральное число n и положительное действительное x. Найти с помощью цикла xn.

15. Запросить с клавиатуры целое число n. Используя циклы, найти

n! = 1 х 2 х…х (n-1) x n.

16. Запросить с клавиатуры натуральное число n. Используя циклы, вывести через пробел n раз на экран цифру 1.

1. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=1;

For n:=1 to 8 do x:=x+0.1; writeln(x:8:1);

2. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=1;

For n:=1 to 8 do begin x:=x+0.1; writeln(x:8:1); end;

3. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=1;

For n:=8 downto 0 do x:=x-0.1; writeln(x:8:1);

4. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=1;

For n:=1 to 8 do writeln(n,’end’);

5. Что будет выведено на экран в результате выполнения фрагмента программы:

For n:=-1 to 8 do begin x:= 7+n*3; Write(x:4); end;

6. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=0;

For n:=1 to 8 do x:=x+n; writeln(x);

7. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=1;

For n:=1 to 8 do x:=x+n; writeln(x);

8. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=0;

For n:=1 to 8 do begin  x:=x+n; writeln(x:8:1); end;

9. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=1;

For n:=1 to 8 do begin x:=x*n; writeln(x:8:1); end;

10. Что будет выведено на экран в результате выполнения фрагмента программы:

For n:=1 to 10 do begin y:=8*n; writeln(‘8*’,n,’=’,y); end;

11. Что будет выведено на экран в результате выполнения фрагмента программы:

Writeln( ‘введите натуральное число’);

readln(n); s:=1;

For k:=0 to n do s:=s*0.25; writeln(s:8:6);

12. Что будет выведено на экран в результате выполнения фрагмента программы:

Writeln( ‘введите натуральное число’);

readln(n); s:=1;

For k:=1 to n do s:=s*k; writeln(s);

13. Что будет выведено на экран в результате выполнения фрагмента программы:

Writeln( ‘введите натуральное число’);

readln(n);

for k:=1 to n do write(‘k’);

14. Что будет выведено на экран в результате выполнения фрагмента программы:

For k:=1 to 25 do write(2*k:4);

15. Что будет выведено на экран в результате выполнения фрагмента программы:

s:=100;

For k:=1 to 10 do s:=s+k; writeln(s);

16. Что будет выведено на экран в результате выполнения фрагмента программы:

s:=0;

For k:=1 to 10 do

begin  writeln( ‘введите ’,k,’-ое число’);  readln(x); s:=s+x; end;

writeln(s);

17. Что будет выведено на экран в результате выполнения фрагмента программы:

s:=0;

For k:=1 to 6 do

begin  writeln( ‘введите ’,k,’-ое число’);  readln(x); s:=s+x; end;

writeln(s/6);

18. Что будет выведено на экран в результате выполнения фрагмента программы:

s1:=1; s2:=2;

For k:=1 to 10 do begin  s:=s1+s2; write( s:4);  s1:=s2; s2:=s; end;

19. Что будет выведено на экран в результате выполнения фрагмента программы:

S:=1;

For k:=1 to 10 do begin  t:=3*k; s:=2*s; writeln( ‘через ’, t, ‘часов будет ’, s,’ амёб’); end;

20. Что будет выведено на экран в результате выполнения фрагмента программы:

For k:=1 to 10 do begin  if k mod 2=1 then write(‘begin ’) else  write(‘end ’); end;

(a mod b – остаток от деления а на b).

21. Что будет выведено на экран в результате выполнения фрагмента программы:

For k:=10 to 100 do begin  if k mod 10 = k div 10 then writeln( k); end;

(a mod b – остаток от деления а на b, a div b – целая часть от деления а на b).

22. Что будет выведено на экран в результате выполнения фрагмента программы:

S:=0;

For k:=10 to 100 do begin  if k mod 2=1 then s:=s+k; end; writeln( s);

23. Что будет выведено на экран в результате выполнения фрагмента программы:

x:=-1;

For k:=-10 to 10 do begin  x:=x+0.1; y:=x*x-1; writeln( x:4:1,y:6:2); end;

24. Что будет выведено на экран в результате выполнения фрагмента программы:

X:=-7;

For k:=0 to 5 do begin  x:=x+2; y:=x/(1+x*x); writeln( x:4,y:6:2); end;

25. Что будет выведено на экран в результате выполнения фрагмента программы:

For k:=-5 to 5 do begin  x:= 2*k+1; y:=x*x-2*x+7; writeln(x:4,y:6:2); end;

26. Что будет выведено на экран в результате выполнения фрагмента программы:

s:=0;

For k:=0 to 10 do begin x:=-10+3*k; if x>0 then s:=s+1; write(x:4); end; writeln(s);

27. Что будет выведено на экран в результате выполнения фрагмента программы:

s:=0;

For k:=0 to 10 do begin x:=-10+3*k; if x>0 then s:=s+x; write(x:4); end; writeln(s);

28. *Что будет выведено на экран в результате выполнения фрагмента программы:

s:=0; x:=-11;

For k:=0 to 10 do begin x:=x+k; if x>0 then s:=s+1; write(x:4); end; writeln(s);

1. Дано слово. Вывести на экран его буквы столбиком.

2. Дано слово. Вывести на экран его буквы в обратном порядке.

3. Ввести фразу. Вывести на экран через запятую все слова этой фразы (поменять пробелы на запятую).

4. Дано слово. Определить, одинаковы ли второй и четвёртый символы в нём.

______________________________________________________________________

5. Запросить строку, состоящую из нескольких слов, разделённых пробелом, и выведите её на экран так, чтобы каждое слово начиналось с новой строки.

____________________________________________________________________________

6. Введите текст, состоящий из латинских букв и заканчивающийся точкой. Подсчитайте в нём количество гласных букв.

___________________________________________________________________________

7. Ввести слово. Проверить, верно ли, что оно начинается и оканчивается одной и той же буквой.

_______________________________________________________________________

8. Ввести предложение. Определить долю (в %) букв а в нём.

___________________________________________________________________________

9. Ввести предложение. Определить, сколько в нём слов.

_________________________________________________________________

10.  Ввести предложение. Определить, сколько в нём одинаковых соседних букв.

11.  Введите строку. Выведите её, сокращая каждый раз на 1 символ до тех пор, пока в строке не останется 1 символ (пример: на входе “строка”. На выходе: “строк стро стр ст с”).

___________________________________________________________________________

12. Ввести два слова. Верно ли, что первое слово начинается на ту же букву, которой оканчивается второе слово?

______________________________________________________________________

13. Ввести слово. Получить его часть, образованную второй, третьей и четвертой буквами.

________________________________________________________________________

14. Ввести слово. Вывести на экран его гласные буквы.

_____________________________________________________________________

15.  Написать программу «Электронный калькулятор»

Программа должна предложить ввести два действительных числа и знак арифметической операции («+» «-»  «*»  «/» ). Произвести требуемое вычисление и вывести на экран результат операции.

___________________________________________________________________

16. Ввести слово маленькими буквами. Вывести на экран то же слово, но заглавными буквами.

_________________________________________________________________________

17. Ввести слово заглавными буквами. Вывести на экран то же слово, но маленькими буквами.

1. Дано слово. Нужно переставить 3 первые его буквы в конец.

2. Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в её начало добавить символы "." (точка). 

3. Дано слово.  Нужно напечатать столбиком слова, получающиеся из предыдущего отбрасыванием первой буквы (победа — обеда — беда — еда — да — а).

4. Дано слово. Нужно заменить все буквы «s» на букву «z».

5. Дано слово. Нужно переставить последнюю его букву в начало.

6. Дана строка. Проверить, есть ли среди её символов буква q. Если нет, то добавить её в конец строки.

7*. Введите строку. Удалите из неё все буквы «о».

8*. Дано слово. Нужно переставить его первый слог со вторым.

9. Дано слово. Нужно 2 первые его буквы вставить перед последней.

10. Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в её конец добавить символы "!" (восклицательный знак). 

11. Дано слово.  Нужно напечатать столбиком слова, получающиеся из предыдущего отбрасыванием последней буквы (победа — побед —побе — поб — по — п).

12. Дано слово. Нужно заменить все буквы «у» на букву «х».

13. Дано слово. Нужно переставить 2 последние его буквы в начало.

1. В цикле запросить с клавиатуры 6 чисел в виде n1= n2= n3= (в столбик) и т. д. Посчитать сумму введённых чисел.

2. В цикле запросить с клавиатуры 5 чисел в виде n1= n2= n3= (в столбик) и т. д. Посчитать среднее арифметическое введённых чисел.

3. Вывести на экран с 15-го по 18-й член ряда Фибоначчи: 1,2,3,5..., где каждый следующий член ряда является суммой двух предыдущих.

4. Найти все двузначные числа, которые либо делятся на 7, либо содержат цифру 7.

5. Дано натуральное число (ввод с клавиатуры). Найти все его делители.

6. Подсчитать количество двузначных чисел, сумма квадратов цифр которых делится на 13.

7. Найти все двузначные числа, которые делятся либо на 9, либо на 4.

8. Найти сумму чисел от 1 до 100, кратных 9 или 8.

9. Найти все двузначные числа, сумма квадратов цифр которых делится на 13.

10.  Определить количество натуральных чисел от 10 до 99, сумма цифр которых равна 13.

11.  Дан ряд 15, 19, 23, 27, 31... Вывести на экран с 100го по 105-й члены этого ряда.

12.  Вывести на экран значения функции y=x2+x4+3x+1 на отрезке [-1,1] с шагом 0.1 в виде:                                      x=-1    y=

                                                                             x=-0.9  y=

_______________________________________

13.  Вывести на экран значения функции

y=(x-3)/(x2+1) на отрезке [-1,1] с шагом 0.1 в виде:  x=-1    y=

                                                                      x=-0.9  y=

14. Вычислить S= 1+1/2+1/3+ ... +1/50.

15. У гусей и кроликов вместе 64 лапы. Сколько может быть кроликов и гусей (указать все сочетания)?

16. Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амёб будет через 3, 6, 9, 12,…, 24 часа.

17.  *Вычислить S= 1–1/2+1/3–1/4...– 1/50.