С клавиатуры вводится натуральное число. Найти его наибольшую цифру.
Например, введено число 764580. Наибольшая цифра в нем 8.
Вероятность четных случайных чисел
Проверить корректность работы генератора псевдослучайных чисел языка программирования с помощью оценки вероятности выпадения четных чисел на выборке не меньше 1000 случайных чисел.
Докажите, что для множества натуральных чисел верно 1+2+. +n = n(n+1)/2
Напишите программу, доказывающую или проверяющую, что для множества натуральных чисел выполняется равенство:
1+2+. +n = n(n+1)/2, где n — любое натуральное число.
Угадать случайное число
В программе генерируется случайное целое число от 0 до 100. Пользователь должен его отгадать не более чем за 10 попыток. После каждой неудачной попытки должно сообщаться больше или меньше введенное пользователем число, чем то, что загадано. Если за 10 попыток число не отгадано, то вывести загаданное число.
Вывод таблицы символов ASCII на экран
Вывести на экран коды и символы таблицы ASCII, начиная с символа под номером 32 и заканчивая 127-м включительно. Вывод выполнить в табличной форме: по десять пар «код-символ» в каждой строке.
Таблица значений функции
Вывести таблицу значений функции y = -0.23x 2 + x . Значения аргумента ( x ) задаются минимумом, максимумом и шагом. Например, если минимум задан как 1, максимум равен 3, а шаг 0.5. То надо вывести на экран изменение x от 1 до 3 с шагом 0.5 (1, 1.5, 2, 2.5, 3) и значения функции ( y ) при каждом значении x .
Переворот числа
Сформировать из введенного числа обратное по порядку входящих в него цифр и вывести на экран. Например, если введено число 3486, то надо вывести число 6843.
Сумма и произведение цифр числа
Найти сумму и произведение цифр, введенного натурального числа. Например, если введено число 325, то сумма его цифр равна 10 (3+2+5), а произведение 30 (3*2*5).
Вычислить факториал числа
Вычислить факториал введенного числа.
Сумма элементов ряда чисел
Найти сумму n элементов следующего ряда чисел:
1 -0.5 0.25 -0.125 .
Количество элементов ( n ) вводится с клавиатуры.
Посчитать четные и нечетные цифры числа
Посчитать четные и нечетные цифры введенного натурального числа. Например, если введено число 34560, то у него 3 четные цифры (4, 6 и 0) и 2 нечетные (3 и 5).
Ряд Фибоначчи
Вывести на экран столько элементов ряда Фибоначчи, сколько указал пользователь. Например, если на ввод поступило число 6, то вывод должен содержать шесть первых чисел ряда Фибоначчи: 1 2 3 5 8 13.
Вывести ряд чисел в диапазоне с шагом
Вывести на экран ряд натуральных чисел от минимума до максимума с шагом. Например, если минимум 10, максимум 35, шаг 5, то вывод должен быть таким: 10 15 20 25 30 35. Минимум, максимум и шаг указываются пользователем (считываются с клавиатуры).
Простейший калькулятор
Написать программу, которая будет складывать, вычитать, умножать или делить два числа. Числа и знак операции вводятся пользователем. После выполнения вычисления программа не должна завершаться, а должна запрашивать новые данные для вычислений. Завершение программы должно выполняться при вводе символа ‘0’ в качестве знака операции. Если пользователь вводит неверный знак (не ‘0’, ‘+’, ‘-‘, ‘*’, ‘/’), то программа должна сообщать ему об ошибке и снова запрашивать знак операции. Также сообщать пользователю о невозможности деления на ноль, если он ввел 0 в качестве делителя.
Решение задач с использованием циклов
I. Постановка цели урока.
Освоив, операторы присваивания и научившись пользоваться условным оператором IF, теоретически можно написать любую программу. Но в нашей повседневной жизни мы очень часто встречаемся с процессами, которые повторяются во времени несколько раз. Например: прорастание растения из семечки, смена времён года, смена времени суток, покраска забора, укладка кирпича и т.д. Гораздо удобнее в этих случаях использовать циклы. Циклы позволяют существенно упростить алгоритм и текст программы, сделать программу изящной, гибкой, более привлекательной. Сегодня на уроке мы будем решать такие задачи и убедимся в этом сами.
II. Актуализация знаний и умений учащихся.
Но прежде чем мы перейдём к решению задач, давайте вспомним с вами, какие циклы вы знаете?
В чём отличительная черта цикла While?
В чём отличительная черта цикла Repeat?
В чём отличительная черта цикла с параметром?
Ответы учащихся сопровождаются демонстрацией слайдов №№ 2-8 презентации к уроку см. Приложение.
Гражданин 1 марта открыл счёт в банке, вложив 1000 рублей. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить:
Сумму вклада через один, два, …, двенадцать месяцев.
Текст задачи выводится на экран слайд презентации № 9.
- Что нам известно?
- Что надо найти?
- Сколько переменных используется в задаче?
- Какие переменные мы будем вводить, а какие рассчитывать?
- К какому типу относятся переменные вводимые с клавиатуры?
- Если эти переменные относятся к вещественному типу, то какой результат мы получим?
- Как мы обозначим переменные?
Проанализировав условие данной задачи, мы можем записать описательную часть программы на языке Pascal.
Слайд презентации № 10.
2. Построение математической модели решения:
Первоначальный вклад а0=1000
Слайд презентации № 11.
3. Составление алгоритма решения:
Слайд презентации № 12.
4. Запись программы:
Program vklad;
Var i: integer;
a: real;
Begin Writeln (‘введите значение первоначального вклада’);
Слайд презентации № 13.
А теперь запишите данную программу с помощью цикла ДО или цикла ПОКА кому как удобнее.
Program vklad;/
Var i: integer;
a: real;
Begin Writeln (‘введите значение первоначального вклада’);
Program vklad;
Var i: integer;
a: real;
Begin Writeln (‘введите значение первоначального вклада’);
Задачи на циклические алгоритмы. Оператор цикла WHILE
Оператор цикла WHILE
Задача 1. Дано целое число а и натуральное (целое неотрицательное) число n. Вычислить а в степени n.
Write(‘ Введите два значения ‘); ReadLn(A,N);
While K <> N DO Begin
Write(‘ A в степени N = ’,B);
Другое решение той же задачи:
Write(‘ Введите два значения ‘); ReadLn(A,N);
While K <> 0 DO Begin
Write(‘ A в степени N = ’,B);
Задача 2. Даны натуральные числа а, b. Вычислить произведение а*b, используя в программе лишь операции +, -, =, <>.
Write(‘ Введите два значения ‘); ReadLn(A,B);
While K <> B DO Begin
Задача 3. Дано натуральное (целое неотрицательное) число A и целое положительное число D . Вычислить частное Q и остаток R при делении A на D , не используя операций DIV и MOD . ( Согласно определению, А = Q * D + R , 0 R D .)
Write(‘ Введите два значения ‘); ReadLn(a,d);
WriteLn(‘ Частное = ’,Q);
WriteLn(‘ Остаток = ’,R);
Задача 4. Каждый год урожайность повышается на 5%. Через сколько лет урожай удвоится?
YR, KL: BYTE; YRG: REAL;
Write(‘ Введите урожайность ‘); ReadLn(YR);
WriteLn(‘ Новый урожай ‘,YRG:5:0);
W rite(‘Через ‘, KL ,’ лет урожай удвоится’);
Задача 5. Деду M лет, а внуку N лет. Через сколько лет дед станет вдвое старше внука. И сколько при этом лет будет деду и внуку.
Write(‘Введите количество лет деда ‘); ReadLn(m);
Write(‘Введите количество лет внука ‘); ReadLn(n);
While (M>2*N) DO Begin
WriteLn ( M ,’ лет деду’);
WriteLn(N,’ лет внуку’);
WriteLn(‘Через ‘, KL ,’ лет дед вдвое станет старше внука’);
Задача 6. Поле засеяли цветами двух сортов на площади S 1 и S 2. Каждый год площадь цветов первого сорта увеличивается вдвое, а площадь второго сорта увеличивается втрое. Через сколько лет площадь первых сортов будет составлять меньше 10% от площади вторых сортов.
Write(‘Введите площадь, которую засеяли цветами 1-го сорта ‘); ReadLn(S1);
Write(‘Введите площадь, которую засеяли цветами 2-го сорта ‘); ReadLn(S2);
While (S1>0.1*S2) DO Begin
WriteLn(‘Площадь, которую засеяли цветами 1-го сорта ‘,S1);
WriteLn(‘Площадь, которую засеяли цветами 2-го сорта ‘,S2);
WriteLn(‘ Через ‘, kl,’ лет ‘);
Задача 7. Составить программу перевода числа из 10 системы счисления в 2 систему счисления.
Для этой задачи представлено два решения.
DES, OST, I, DW:INTEGER;
Write(‘ Введите десятичное число ‘); ReadLn(DES);
While (DES>=2) DO Begin
Write(‘Двоичная запись числа ‘, DW );
DW:Array[1..100] OF INTEGER;
Write (‘Введите десятичное число ‘); ReadLn ( des );
While (des>=2) DO Begin
FOR I:=I DownTo 1 DO
Составить программу, печатающую квадраты всех натуральных чисел от 0 до заданного натурального n.
Дано натуральное n, вычислить n! (0!=1, n! = n * (n-1)!).
Последовательность Фибоначчи определяется так: a(0)= 1, a(1) = 1, a(k) = a(k-1) + a(k-2) при k >= 2. Дано n, вычислить a(n).
К старушке на обед ходят кошки. Каждую неделю две кошки приводят свою подружку. В доме у старушки 100 мисок. Через какое время появятся лишние кошки, и сколько кошек при этом останется голодными.
Известна сумма номеров страниц, определить номер страницы.
Лягушка каждый последующий прыжок делает в два раза короче предыдущего. Достигнет ли она болота и за сколько прыжков. Длину первого прыжка задайте самостоятельно.
Номер материала: ДБ-1166172
Не нашли то что искали?
Вам будут интересны эти курсы:
Оставьте свой комментарий
Подарочные сертификаты
Ответственность за разрешение любых спорных моментов, касающихся самих материалов и их содержания, берут на себя пользователи, разместившие материал на сайте. Однако администрация сайта готова оказать всяческую поддержку в решении любых вопросов, связанных с работой и содержанием сайта. Если Вы заметили, что на данном сайте незаконно используются материалы, сообщите об этом администрации сайта через форму обратной связи.
Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.
Решение задач с помощью циклов
Описание презентации по отдельным слайдам:
Федеральное государственное казенное общеобразовательное учреждение «средняя общеобразовательная школа № 16» с. Ботлих Паскаль. Циклы. Решение задач с помощью циклов. Учитель информатики и ИКТ Кутасова О.В. 2013 г.
ЦИКЛЫ В Паскале три вида циклов: Цикл For (со счетчиком); Цикл While (с предусловием); Цикл Repeat (с постусловием).
Цикл FOR For позволяет выполнить серию действий заданное число раз. Общий формат : for i:=nz to kz do шаг 1 тело цикла или for i:=nz downto kz do шаг -1 тело цикла где i-переменная цикла или счетчик и должна быть только целого типа, nz- начальное значение переменной, kz – конечное значение переменной программы.
Цикл While Общий формат: while условие do begin тело цикла end; где условие- некоторое выражение, результат может «истина» или «ложь». Если в теле цикла несколько операторов, то их нужно объединить програмными скобками begin – end.
Как работает While? Сначала проверяется условие. Если оно истинно, то тело цикла выполняется, затем условие проверяется снова, и процесс повторяется. Тело цикла выполняется каждый раз, когда проверка условия дает «истину». Если условие ложно, то цикл завершается, входа в тело цикла не происходит, и следующим выполняется предложение, стоящее непосредственно после цикла. После while ставится условие работы цикла. Проверка условия производится до выполнения цикла.
Цикл Repeat Общий формат: repeat тело цикла until условие Сначала выполняется тело цикла. По достижению пункта until проверяется условие. Если оно не выполняется, тело цикла выполняется снова, с новой проверкой условия. Если же условие выполнено, то тело цикла больше не повторяется, цикл завершается, а программа переходит к выполнению оператора, следующего за until. В этом цикле не используются програмные скобки begin-end. После until ставится условие выхода из цикла.
Задача Даны равносторонние треугольники. Значение сторон меняются от 10 до 24 с шагом 1. Вывести периметры всех треугольников.
Цикл FOR for i:=10 to 24 do Begin P:=i*3; writeln(‘i= ‘,i,’P= ‘,P); end; end.
Цикл WHILE i:=10; while i 10 слайд
Цикл Repeat var i,P: integer; begin i:=10; repeat P:=i*3; writeln(‘i= ‘,i,’P= ‘,P); i:=i+1; until i=25; end.
Номер материала: ДВ-441863
Не нашли то что искали?
Вам будут интересны эти курсы:
Оставьте свой комментарий
Подарочные сертификаты
Ответственность за разрешение любых спорных моментов, касающихся самих материалов и их содержания, берут на себя пользователи, разместившие материал на сайте. Однако администрация сайта готова оказать всяческую поддержку в решении любых вопросов, связанных с работой и содержанием сайта. Если Вы заметили, что на данном сайте незаконно используются материалы, сообщите об этом администрации сайта через форму обратной связи.
Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.
Задачи по теме Циклы
- Напишите программу вывода всех четных чисел от 2 до 100 включительно. (2 балла)
- Составьте программу, вычисляющую сумму квадратов всех чисел от 1 до N. (1 балл)
- Напишите программу, определяющую сумму всех нечетных чисел от 1 до 99. (2 балла)
- Составьте программу, подсчитывающую количество цифр вводимого вами целого неотрицательного числа. Можно использовать операцию целочисленного деления. (3 балла)
- Вычислите сумму квадратов N четных натуральных чисел. (2 балла)
- Вычислить: 1+2+4+8+…+210 (3 балла)
- Вычислить: (1+2)*(1+2+3)*…*(1+2+…+10) (3 балла)
- В бригаде, работающей на уборке сена, имеется N косилок. Первая из них работала M часов, а каждая следующая на 10 минут больше, чем предыдущая. Сколько часов проработала вся бригада? (2 балла)
- В ЭВМ вводятся по очереди данные о росте N учащихся класса. Определить средний рост учащихся в классе. (1 балл)
- Составьте программу вычисления степени числа A с натуральным показателем N. (3 балла)
- Составьте программу, вычисляющую A*B, не пользуясь операцией умножения. А и B любое натуральное число. (2 балла)
- Для заданного числа N составьте программу вычисления суммы S=1+1/2+1/3+1/4+…+1/N, где N – натуральное число. (2 балла)
- Каждая бактерия делится на две в течение одной минуты. В начальный момент имеется одна бактерия. Составьте программу, которая рассчитывает количество бактерий на заданное вами целое значение момента времени (15 минут, 7 минут и т.п.). (2 балла)
14. Вывести на экран кубы целых чисел от A до B. (1 балл)
15. Найти сумму n-го количества элементов ряда 1, -0.5, 0.25, -0.125, … (2 балла)
16. Вывести все квадраты натуральных чисел, не превосходящие данного числа N. Пример: N=50 | 1 4 9 16. (1 балл)
17. Вывести на экран ряд чисел Фибоначчи, состоящий из n элементов. Числа Фибоначчи – это элементы числовой последовательности: 0, 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, 89, 144, …, в которой каждое последующее число равно сумме двух предыдущих. (2 балла)
- Найти сумму целых чисел от N до M . (1 балл)
- Даны натуральные числа от 20 до 50. Напечатать те из них, которые делятся на 3, но не делятся на 5. (3 балла)
- Найти произведение двузначных нечетных чисел кратных 13. (3 балла)
- Даны действительное число а и натуральное число n. Вычислить: a(a+1). (a+n-1). (2 балла)
- Составьте программу, выводящую на экран квадраты чисел от 10 до 20. (2 балла)
- Бизнесмен взял ссуду m тысяч рублей в банке под 20% годовых. Через сколько лет его долг превысит s тысяч рублей, если за это время он не будет отдавать долг? (3 балла)
Сборник практических заданий. Тема «Программирование на языке Pascal. Ветвление. Циклы»
Сборник практических заданий. Тема «Программирование на языке Pascal. Ветвление. Циклы»
Просмотр содержимого документа
«Сборник практических заданий. Тема «Программирование на языке Pascal. Ветвление. Циклы»»
Сборник практических заданий.
Тема «Программирование на языке Pascal. Ветвление. Циклы»
Знакомство с ветвлением. Задачи на ветвление.
Задача 1: Введите число х. Если число больше 100, то прибавить 50, если меньше – умножить на 2.
Задачи на ветвление.
Задача 1: Введите два числа (x, y). Первое число умножить на 2, ко второму прибавить 20. На экран выдать получившиеся два числа в порядке возрастания.
(Пример сообщений на экране:
Введите 2 числа. (ввод двух чисел через пробел 15
Числа в порядке возрастания: 28, 30)
Задача 2: Введите три числа (a, b, c). Найти сумму чисел и если сумма больше 100, выдать соответствующее сообщение и сумму. (Пример: Сумма больше 100 = 258).
Задача 3: Введите два числа (x, y). Если второе число не равно нулю, то первое число разделить на второе и выдать ответ иначе вывести сообщение «На ноль делить нельзя!».
Помощь: Тип результата использовать real.
Примеры сообщений на экране:
На ноль делить нельзя!
Результат деления = 2.5
Задачи на ветвление. Сложное условие. Вложенное условие.
Задача 4: Ввести 3 числа. Вывести их в порядке возрастания. (12, 34, 56)
Задача 5: Ввести возраст человека (от 1 до 100 лет) и вывести его вместе с последующим словом «год», «года» или «лет».
Введите возраст: Введите возраст:
Вам 24 года Вам 57 лет
Идея решения кроется в проверке, того, на какую цифру заканчивается число:
Если на 1, то пишем год.
Если на 2, 3 или 4, то пишем года.
Оставшиеся – пишем лет.
Проверка последней цифры осуществляется арифметической операцией mod.
Пример: Если a mod 10=1, то вывод «год».
Для проверки на 2, 3, 4 – использовать условие and.
if (a mod 10=2) and (a mod 10=3) and (a mod 10=4) then …
Исключение 11, 12, 13, 14 лет продумать отдельно.
Написать программу, находящую все четные числа от нуля до n (n вводится с клавиатуры).
writeln (‘Введите число’);
writeln (‘Четные числа: ‘);
Изменить программу так, чтобы выводились на экран нечетные числа.
Дополните программу так, чтобы определялась сумма всех нечетных чисел от 1 до n.
1 3 5 7 9 11 Сумма=36
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31 33 35 37 Сумма=361
Напишите программу, которая требует у вас пароль, например 111. Если пароль правильный, то выводит сообщение «Молодец». Если после пятой попытки пароль все равно неверен, выводит сообщение «Карта заблокирована».
5*. Вычислить: (1+2)*(1+2+3)*…*(1+2+…+n) (n вводится с клавиатуры)
Отладка: 1) n=4, pr=180; 2) n=6, pr=56700; 3) n=8, pr=57153600.
Интересные задачи для программирования
Билет называют «счастливым», если в его номере сумма первых трех цифр равна сумме последних трех. Организовать ввод номера билета и определить, является ли он счастливым.
Составьте программу, вычисляющую A*B, не пользуясь операцией умножения. А и B любое натуральное число.
Составьте программу, которая выводит полную запись десятичного числа 42?4?, в которой пропущены две цифры (обозначены ?), если известно, что данное число кратно 72. (Одно из таких чисел 42048).
Найти все трехзначные числа, средняя цифра которых равна сумме первой и второй цифр (Например, число: 132).
В каких двузначных числах удвоенная сумма цифр равна их произведению?
(Одно из таких чисел 44: 4*2+4*2 = 4*4)
Запишите любое число от 1 до 1000, введенное пользователем, русскими буквами. Например, 2 – два, 150 – сто пятьдесят.
Сухих Н.А. Поурочные разработки по информатике. 9 класс – М.: ВАКО, 2013. – 288 с. (В помощь школьному учителю)
Семакин И.Г. Информатика и ИКТ: учебник для 9 класса / И.Г. Семакин, Л.А. Залогова, С.В. Русаков, Л.В. Шестакова. – 3-е изд. – М.: БИНОМ. Лаборатория знаний, 2010, -341 с.
Данил Душистов. Решение 50 типовых задач по программированию на языке Pascal
Дата размещения сборника в сети: 31.08.2012
Презентация. К.Ю. Поляков, 2006-2009, 173 слайда.
Pascal: Проверь себя (решенные задачи, операторы цикла)
Pascal операторы цикла — Repeat
var a,b,temp,c:integer; flag: boolean; begin writeln(‘A=’); readln(a); writeln(‘B=’); readln(b); temp:=a; repeat temp:=temp-b; inc(c); until temp-b>=0; writeln(‘result: ‘,c); end.
Pascal операторы цикла — While
P:=1; i:=3; while i 1) 1
2) 3
3) 9
4) 24
S:=0; i:=7; while i > 1 do begin S := S + i div 2; i := i — 1; end;
Варианты:
1) S = 0
2) S = 7
3) S = 12
4) S = 24
Решение данного задания смотрите в видео уроке по Паскалю:
var n, k,c: integer; begin writeln(‘N:’); readln(n); writeln(‘K:’); readln(k); c:=0; while n>=k do begin n:=n-k; c:=c+1; end; writeln(‘частное: ‘,c, ‘остаток: ‘, n); end.
var number:integer; flag: boolean; begin writeln(‘введите целое число (number>0) number=’); readln(number); flag:=false; while (number div 10)>0 do begin if (number mod 10) = 2 then flag:=true; number:=number div 10; end; writeln(flag); end.
var N,K,Temp :Integer; begin Write(‘Введите N: ‘); Readln(N); K:=0; Temp:=3; while Temp
* Из задачника М. Э. Абрамян (While14)
var Temp:Real; A,K :Integer; begin Write(‘Введите A: ‘); Readln(A); K:=0; Temp:=0; while Temp Проверить:
var i,R,K:Longint; begin write(‘Введите K : ‘); readln(K); R:=1; i:=0; while(R<>0) do begin write(‘Введите число из набора: ‘); Readln(R); if R Проверить:
var P, S, D:Real; K :Integer; begin Write(‘Введите процент: ‘); Readln(P); K:=1; D:=10; S:=10; while S Pascal операторы цикла — For
* Из задачника М. Э. Абрамян
var c,m:real; i:integer; begin writeln(‘Цена?’); readln(c); m:=0.1; for i := 1 to 10 do begin writeln(‘ price of ‘,m, ‘ kg = ‘,c*m); m:=m+0.1; end; end.
var a, b, i: integer; begin writeln(‘A:’); readln(a); writeln(‘B:’); readln(b); for i:= b-1 downto a+1 do write(i:3 ); writeln; writeln(‘kolvo: ‘,b-a-1); end.
* Из задачника М. Э. Абрамян (For11)
var N, Rez,i :Integer; begin Write(‘Введите N: ‘); Readln(N); rez:=0; For i:=0 to N do Rez:=Rez+sqr(N+i); Writeln(Rez); end.
Сейчас предлагаем решить сложную олимпиадную задачу на Паскале:
var c,n,s,k,i:integer; begin c:=0; s:=0; readln(n); for i:=2 to n do begin k:=i; while k>0 do begin if i mod k = 0 then c:=c+1; k:=k-1; end; if c= 5 then s:=s+i; c:=0; end; writeln(s); end.
Рубрики:
Добрый вечер. В первом задании у вас не правильный код. Постоянно 1 выдаёт.
У меня получился вот такой:
var a,b,k:integer;
begin
write(‘Введите длину отрезка А (a>b) — ‘);
readln(a);
write(‘Введите длину отрезка Б (b в 19:20
ваш код в задачке while 4 на числа, начинающиеся на двойку(например 233) выдаёт false. я написал так(про булеан ещё не знал, ведь он в следующей главе):
var a,a1,z,i,j,i2:integer;
begin
write(‘vvedite chislo:’);
readln(a);
i:=1;
a1:=a;
z:=0;
while a1>=10 do begin
a1:=a1 div 10;
inc(i);
end;
a1:=a;
while i>0 do begin
i2:=1;j:=1;
while i2 в 16:21
Найти сумму элементов в матрице из отрезка [50; 80]