N коробок стоят по кругу в i коробке j змей

Сборник задач с решениями на языке программирования Паскаль (10 класс)

Подготовила: Алдошина Е.А.,

Компьютер в первую секунду печатает на экране 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В какую секунду впервые появится число, делящееся на 2009?

while x mod 20090 do

writeln (‘ Через ‘, k, ‘ секунд ‘);

Найдите количество четных цифр в десятичной записи числа n.

if y mod 2 =0 then k:=k+1;

Выясните, лежат ли на одной прямой точки А( x 1, y 1), B ( x 2, y 2), C ( x 3, y 3)

Точки лежат на одной прямой

x1, x2, x3, y1, y2, y3, z, n:real;

write (‘Введите координаты точки А ‘);

write (‘Введите координаты точки В ‘);

write (‘Введите координаты точки C ‘);

if (z=n) and (z=(x2-x1)/(y2-y1)) then

writeln (‘Точки лежат на одной прямой’)

writeln (‘Точки не лежат на одной прямой’);

Сообщество роботов живет по следующим законам: один раз в год они объединяются в полностью укомплектованные группы по 3 или 5 роботов (причем число групп из 3 роботов — максимально возможное). За год группа из 3 роботов собирает 5, а группа из 5 — 9 новых собратьев. Каждый робот живет 3 года после сборки. Известно начальное количество роботов (К>7), все они только что собраны. Определить, сколько роботов будет через N лет.

var k, i, n, p:integer;

r:array [1..3] of longint;

write(‘ количество роботов k=’); readln(k);

write (‘количество лет n =’); readln ( n );

else if p=1 then begin x:=x-3; y:=2 end

else begin x:=x-1; y:=1 end;

writeln (‘Количество роботов — ’, s );

Суточный рацион коровы составляет a кг сена, b кг силоса и c кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось x центнеров сена, y тонн силоса и z мешков комбикорма по 50 кг. Сколько еще дней хозяйство сможет кормить коров по полному рациону.

if (x>=r) and (y>=r) and (z>=r) then

Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в свое дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и если да, то через сколько лет?

if kol>=50 then writeln (‘no’) else writeln (kol);

Дано два целых положительных числа: a и b. Требуется написать программу, которая находит цифру, на которую оканчивается число a^b.

writeln (‘ Введите a’); readln (a);

writeln (‘ Введите b’); readln (b);

if b=1 then writeln (a)

Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн).

mas=array[1..15] of integer;

writeln (‘ Введите m’,'[‘,i,’]’);

writeln (‘Введите стартовый капитал’);

writeln (‘Введите % увеличения капитала’);

writeln (‘Введите сумму, необходимую для покупки магазина’);

Число Цукермана – натуральное число, которое делится на произведение своих цифр, например: 175 делится на 1·7·5=35. Составить программу, которая выводит на экран все трехзначные числа Цукермана.

for i := 111 to 999 do

b := (i div 10) mod 10;

if (b 0) and (c 0) and (i mod (a * b * c) = 0) then writeln (i);

На конференцию приехало N человек. Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом – М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров. Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции.

writeln (‘Введите количество участников’);

writeln (‘Введите вместимость первого автомобиля’);

writeln (‘Введите вместимость второго автомобиля’);

if x mod 20 then N:=N-K else N:=N-M;

A: array [1..4] of integer;

writeln (‘Израсходовано спичек’, m );

Сформировать квадратную матрицу следующего вида.

A: array [1..5, 1..5] of byte;

a := 8 * a + 4 * b + 2 * c + d;

Даны два натуральных числа. Найти их наименьшее общее кратное.

while m n do begin

if m > n then begin

Дана последовательность символов длины n ( n >= 1). Проверить баланс круглых скобок в этом выражении. Например, при вводе выражения (())() программа должна сообщить о правильности расстановки скобок, а при вводе выражения ((()) – о неправильности.

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

for i := 1 to n do begin

if c = ‘(‘ then inc(count);

if c = ‘)’ then dec(count);

a, b, i, j, d, m:integer;

function nod(a, b:integer):integer;

if a>b then nod:=nod(a-b, b) else nod:=nod(a, b-a)

writeln (‘ Введите НОД двух чисел d’);

writeln (‘ Введите НО K двух чисел m’);

if ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then writeln (i, j);

Правительство гарантирует, что инфляция в новом году составит р% в месяц. Какого роста цен за год можно ожидать? Составить программу решения задачи.

Сложные проценты вычисляются по формуле .

writeln (‘Введите процент месячной инфляции’);

Факультету выделен стипендиальный фонд в размере f рублей в месяц. Результаты сессии таковы: «отличников», «хорошистов», «троечников». Повышенная стипендия (для отличников) составляет рублей, обычная — рублей; задолжники стипендии лишаются. Составить программу, определяющую сколько студентов каждой категории могут получать стипендию и каков будет остаток фонда на материальную помощь малоимущим студентам?

writeln (‘ Введите размер фонда ’);

writeln (‘Введите количество отличников, хорошистов и троечников’);

readln ( n 1, n 2, n 3);

writeln (‘Введите размер стипендий’);

if f>s1*n1 then k1:=n1 else k1:=f div s1;

if f>s2*n2 then k2:=n2 else k2:=f div s2;

if f>s2*n3 then k3:=n3 else k3:=f div s2;

Читайте также:  Змей и петух совместимость

writeln (‘Количество отличников, получивших стипендию=’, k 1);

if k 2>0 then writeln (‘Количество хорошистов, получивших стипендию= ‘, k 2);

if k 3>0 then writeln (‘Количество троечников, получивших стипендию =’, k 3);

writeln (‘Фонд материальной помощи=’, f );

Источник

Сборник задач с решениями на языке программирования Паскаль

1 Сборник задач с решениями на языке программирования Паскаль Подготовила: Суханова Т. А., учитель информатики МАОУ «Гимназия 1» г. о.балашиха мкр.железнодорожный

2 Задача 1 Компьютер в первую секунду печатает на экране 1, во вторую число 12, в третью число 23. То есть, в каждую следующую секунду на 11 больше, чем в предыдущую. В какую секунду впервые появится число, делящееся на 2009? program z1; k,x:integer; k:=1; x:=1; while x mod 2009<>0 do k:=k+1; x:=x+11; writeln (‘Через ‘, k, ‘ секунд’); Задача 2 Найдите количество четных цифр в десятичной записи числа n program z2; x, y, k:integer; readln (x); k:=0; while x<>0 do y:=x mod 10; if y mod 2 =0 then k:=k+1; x:=x div 10; writeln (‘k=’,k);

6 Задача 8 Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн). program z8; type mas=array[1..15] of integer; m:mas; k,i,s:integer; for i:=1 to 15 do writeln (‘Введите m’,'[‘,i,’]’); readln (m[i]); k:=1; i:=1; s:=0; repeat if s+m[i] 15; writeln (‘Потребовалось, k,’рейсов’); Задача 9 Коммерсант, имея стартовый капитал k рублей, занялся торговлей, которая ежемесячно увеличивает капитал на p%. Через сколько лет он накопит сумму s, достаточную для покупки собственного магазина?

7 program z9; s,k,p:real; n:integer; writeln (‘Введите стартовый капитал’); readln(k); writeln (‘Введите % увеличения капитала’); readln(p); writeln (‘Введите сумму, необходимую для покупки магазина’); readln(s); while k 0) and (c <> 0) and (i mod (a * b * c) = 0) then writeln (i);

8 Задача 11 На конференцию приехало N человек. Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров. Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции program z11; N,M,K,x:integer; writeln (‘Введите количество участников’); readln(n); writeln (‘Введите вместимость первого автомобиля’); readln(k); writeln (‘Введите вместимость второго автомобиля’); readln(m); x:=0; while N>0 do x:=x+1; if x mod 2<>0 then N:=N-K else N:=N-M; writeln (x);

9 Задача 12 Имеется четыре коробки спичек и в каждой из них по 15 спичек. Номер коробки, из которой берется очередная спичка, выбирается случайно. Сколько спичек будет сожжено, прежде чем одна из коробок опустеет? Составить программу. program z12; A: array [1..4] of integer; i, m,n:integer; for i:=1 to 4 do A[i]:=15; repeat n:=1+random(4); A[n]:=A[n]-1; m:=m+1; until A[n]=0; writeln (‘В коробке’, n, ‘закончились спички’); writeln (‘Израсходовано спичек’, m); Задача 13 Сформировать квадратную матрицу следующего вида program z13; A: array [1..5, 1..5] of byte; i, j:integer; for i:=1 to 5 do for j:=1 to 5 do A[i, j]:=1+(i+j-2) mod 5; for i:=1 to 5 do for j:=1 to 5 do write (a[i, j]:2); writeln;

12 Задача 17 Сколько существует упорядоченных пар натуральных чисел а и b, для которых известны их наибольший общий делитель d и их наименьшее общее кратное m? d=2 m=30 (6, 10) (2, 30) program Z17; a, b, i, j, d, m:integer; function nod(a, b:integer):integer; if a=b then nod:=a else if a>b then nod:=nod(a-b, b) else nod:=nod(a, b-a) writeln ( Введите НОД двух чисел d ); readln (d); writeln ( Введите НОK двух чисел m ); readln (d); for i:=1 to 100 do for j:=1 to 100 do a:=i; b:=j; if ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then writeln (i, j); readln

14 if f>s1*n1 then k1:=n1 else k1:=f div s1; f:=f-s1*k1; if f>s2*n2 then k2:=n2 else k2:=f div s2; f:=f-s2*k2; if f>s2*n3 then k3:=n3 else k3:=f div s2; f:=f-s2*k3; writeln (‘Количество отличников, получивших стипендию=’,k1); if k2>0 then writeln (‘Количество хорошистов, получивших стипендию= ‘,k2); if k3>0 then writeln (‘Количество троечников, получивших стипендию =’,k3); writeln ( Фонд материальной помощи=, f); readln Задача 20 N коробок стоят по кругу. В i-ой коробке j змей. Каждую минуту змеи переползают в соседнюю коробку (из i-ой в i+1-ую), а из N-ой в первую. Составить программу, определяющую количество змей в каждой коробке через М минут. N=6 M= program Z20; n, m, i, j:integer; writeln ( Введите количество коробок n ); readln (n); writeln ( Введите количество минут m ); readln (m); m:=m mod n; if m=0 then j:=0; m:=n end else j:=n-m; for i:=1 to n do j:=j+1; write (j,’ ‘); if i=m then j:=0; writeln (n); readln

18 Задача 25 Из элементов массива А(2n) получить массивы В(n) и C(n) следующим образом. Выбрать в массиве А два наиболее близких по значению элемента; меньший из них поместить в массив В, а больший в массив С. Продолжить выбор из оставшихся элементов до полного заполнения массивов В и С. Массив А program z25; i, j, x,k,n:integer; min,d:real; a:array[1..10] of real; b:array[1..5] of real; c:array[1..5] of real; x:=0; k:=0; for i:=1 to 10 do read(a[i]); writeln(‘массив А’); for i:=1 to 10 do write(a[i], ‘ ‘); writeln; for i:=1 to 10 do min:=a[i]; for j:=i+1 to 10 do if a[j] 0 then x:=x+1; b[x]:=min; end else k:=k+1; Массив В Массив С

Источник

Задачи с решениями

на языке программирования Паскаль

Компьютер в первую секунду печатает на экране 1, во вторую – число 12, в третью – число 23. То есть, в каждую следующую секунду – на 11 больше, чем в предыдущую. В какую секунду впервые появится число, делящееся на 2009?

Читайте также:  Кольцо змея на большой палец

while x mod 2009<>0 do

writeln (‘ Через ‘, k, ‘ секунд ‘);

Найдите количество четных цифр в десятичной записи числа n.

if y mod 2 =0 then k:=k+1;

Выясните, лежат ли на одной прямой точки А( x 1, y 1), B ( x 2, y 2), C ( x 3, y 3)

Точки лежат на одной прямой

x1, x2, x3, y1, y2, y3, z, n:real;

write (‘Введите координаты точки А ‘);

write (‘Введите координаты точки В ‘);

write (‘Введите координаты точки C ‘);

if (z=n) and (z=(x2-x1)/(y2-y1)) then

writeln (‘Точки лежат на одной прямой’)

writeln (‘Точки не лежат на одной прямой’);

var k, i, n, p:integer;

r:array [1..3] of longint;

write (‘количество роботов k =’); readln ( k );

write (‘количество лет n =’); readln ( n );

else if p=1 then begin x:=x-3; y:=2 end

else begin x:=x-1; y:=1 end;

Суточный рацион коровы составляет a кг сена, b кг силоса и c кг комбикорма. В хозяйстве, содержащем стадо из k голов, осталось x центнеров сена, y тонн силоса и z мешков комбикорма по 50 кг. Сколько еще дней хозяйство сможет кормить коров по полному рациону.

if (x>=r) and (y>=r) and (z>=r) then

Предприниматель, начав дело, взял кредит размером k рублей под p процентов годовых и вложил его в свое дело. По прогнозам, его дело должно давать прибыль r рублей в год. Сможет ли он накопить сумму, достаточную для погашения кредита, и если да, то через сколько лет?

if kol>=50 then writeln (‘no’) else writeln (kol);

Дано два целых положительных числа: a и b. Требуется написать программу, которая находит цифру, на которую оканчивается число a^b.

writeln (‘ Введите a’); readln (a);

writeln (‘ Введите b’); readln (b);

if b=1 then writeln (a)

Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн).

mas=array[1..15] of integer;

writeln (‘ Введите m’,'[‘,i,’]’);

writeln (‘Введите стартовый капитал’);

writeln (‘Введите % увеличения капитала’);

writeln (‘Введите сумму, необходимую для покупки магазина’);

Число Цукермана – натуральное число, которое делится на произведение своих цифр, например: 175 делится на 1·7·5=35. Составить программу, которая выводит на экран все трехзначные числа Цукермана.

for i := 111 to 999 do

b := (i div 10) mod 10;

if (b <> 0) and (c <> 0) and (i mod (a * b * c) = 0) then writeln (i);

На конференцию приехало N человек. Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом – М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров. Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции.

writeln (‘Введите количество участников’);

writeln (‘Введите вместимость первого автомобиля’);

writeln (‘Введите вместимость второго автомобиля’);

if x mod 2<>0 then N:=N-K else N:=N-M;

A: array [1..4] of integer;

writeln (‘Израсходовано спичек’, m );

Сформировать квадратную матрицу следующего вида.

A: array [1..5, 1..5] of byte;

a := 8 * a + 4 * b + 2 * c + d;

Даны два натуральных числа. Найти их наименьшее общее кратное.

while m <> n do begin

if m > n then begin

Дана последовательность символов длины n ( n >= 1). Проверить баланс круглых скобок в этом выражении. Например, при вводе выражения (())() программа должна сообщить о правильности расстановки скобок, а при вводе выражения ((()) – о неправильности.

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

for i := 1 to n do begin

if c = ‘(‘ then inc(count);

if c = ‘)’ then dec(count);

a, b, i, j, d, m:integer;

function nod(a, b:integer):integer;

if a>b then nod:=nod(a-b, b) else nod:=nod(a, b-a)

writeln (‘Введите НОД двух чисел d ’);

writeln (‘Введите НО K двух чисел m ’);

if ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then writeln (i, j);

Правительство гарантирует, что инфляция в новом году составит р% в месяц. Какого роста цен за год можно ожидать? Составить программу решения задачи.

writeln (‘Введите процент месячной инфляции’);

writeln (‘ Введите размер фонда ’);

writeln (‘Введите количество отличников, хорошистов и троечников’);

readln ( n 1, n 2, n 3);

writeln (‘Введите размер стипендий’);

if f>s1*n1 then k1:=n1 else k1:=f div s1;

if f>s2*n2 then k2:=n2 else k2:=f div s2;

if f>s2*n3 then k3:=n3 else k3:=f div s2;

writeln (‘Количество отличников, получивших стипендию=’, k 1);

if k 2>0 then writeln (‘Количество хорошистов, получивших стипендию= ‘, k 2);

if k 3>0 then writeln (‘Количество троечников, получивших стипендию =’, k 3);

writeln (‘Фонд материальной помощи=’, f );

writeln (‘Введите количество коробок n ’);

writeln (‘Введите количество минут m ’);

if m=0 then begin j:=0; m:=n end else j:=n-m;

Имеется N точек, расположенных в произвольном порядке на плоскости. Найти две точки, расстояние между которыми наименьшее.

a:array[1..n] of integer;

b:array[1..n] of integer;

FOR j:= i + 1 TO n do

writeln(‘ Номера точек ’);

В книге N страниц. Составить программу подсчета количества десятичных цифр, требуемых для нумерации всех страниц книги. Нумерация проводится от 1 и далее.

Король Флатландии решил вырубить некоторые деревья, растущие перед его дворцом. Деревья перед дворцом короля посажены в ряд, всего там растет N деревьев, расстояния между соседними деревьями одинаковы.

После вырубки перед дворцом должно остаться M деревьев, и расстояния между соседними деревьями должны быть одинаковыми. Помогите королю выяснить, сколько существует способов вырубки деревьев.

Требуется написать программу, которая по заданным числам N и M определит, сколько существует способов вырубки некоторых из N деревьев так, чтобы после вырубки осталось M деревьев и соседние деревья находились на равном расстоянии друг от друга.

write ln (‘Количество способов вырубки деревьев=’, s);

Из элементов массива А(2 n ) получить массивы В( n ) и C ( n ) следующим образом. Выбрать в массиве А два наиболее близких по значению элемента; меньший из них поместить в массив В, а больший – в массив С. Продолжить выбор из оставшихся элементов до полного заполнения массивов В и С.

Читайте также:  Алеша попович сказал у змея горыныча больше трех голов решение задачи

8 0 10 4 1 99 3 15 2 11

Дан прямоугольник, длины сторон которого равны натуральным числам А и В. Составить программу, которая будет находить на сколько квадратов можно разрезать данный прямоугольник, если от него каждый раз отрезать квадрат наибольшей площади.

writeln (‘Количество квадратов-‘, k );

Папа Карло, играя на шарманке, ежедневно зарабатывает у туристов 5 золотых (монет). Весь заработок уходит на обед папы Карло и его друзей в харчевне «Три пескаря», где плату принимают только деревянными (монетами). В меняльных лавках папу Карло не обслуживают. Банкир Карабас-Барабас для друзей папы Карло установил индивидуальные правила обмена золотых на деревянные в разных лавках (смотри таблицу). Каждый из друзей может обменять только один золотой и в каждой лавке могут обслужить только одного из друзей.

Таблица обмена одного золотого на деревянные

N лавки; Арлекино, N лавки; Артемон, N лавки; количество полученных деревянных.

В программе рассматривается =120 возможных вариантов обмена золотых монет на деревянные и выбирается оптимальный вариант обмена.

F:array[1..5] of integer;

P:array[1..5] of string;

Q[1, 1]:=12; Q[1, 2]:=13; Q[1, 3]:=10; Q[1, 4]:=7; Q[1, 5]:=8;

Q[2, 1]:=10; Q[2, 2]:=11; Q[2, 3]:=9; Q[2, 4]:=7; Q[2, 5]:=9;

Q[3, 1]:=11; Q[3, 2]:=10; Q[3, 3]:=9; Q[3, 4]:=8; Q[3, 5]:=4;

Q[4, 1]:=10; Q[4, 2]:=11; Q[4, 3]:=8; Q[4, 4]:=10; Q[4, 5]:=5;

Q[5, 1]:=7; Q[5, 2]:=12; Q[5, 3]:=10; Q[5, 4]:=9; Q[5, 5]:=7;

P[1]:=’ Буратино ‘; P[2]:=’ Мальвина ‘; P[3]:=’ Пьеро ‘;

P[4]:=’ Арлекино ‘; P[5]:=’ Артемон ‘;

if (a<>b) AND (a<>c) AND (a<>d) AND (a<>e) AND (b<>c) AND (b<>d)AND (b<>e) AND (c<>d) AND (c<>e) AND (d<>e) then

Номер материала: ДБ-1215516

Не нашли то что искали?

Вам будут интересны эти курсы:

Оставьте свой комментарий

Подарочные сертификаты

Ответственность за разрешение любых спорных моментов, касающихся самих материалов и их содержания, берут на себя пользователи, разместившие материал на сайте. Однако администрация сайта готова оказать всяческую поддержку в решении любых вопросов, связанных с работой и содержанием сайта. Если Вы заметили, что на данном сайте незаконно используются материалы, сообщите об этом администрации сайта через форму обратной связи.

Все материалы, размещенные на сайте, созданы авторами сайта либо размещены пользователями сайта и представлены на сайте исключительно для ознакомления. Авторские права на материалы принадлежат их законным авторам. Частичное или полное копирование материалов сайта без письменного разрешения администрации сайта запрещено! Мнение администрации может не совпадать с точкой зрения авторов.

Источник

N коробок стоят по кругу в i коробке j змей

writeln (‘ Введите a’); readln (a);

writeln (‘ Введите b’); readln (b);

if b=1 then writeln (a)

Из одного порта в другой необходимо перевезти 15 различных грузов. Грузоподъемность судна, на котором будет проходить перевозка, 50 тонн. Грузы пронумерованы, и информация о массах грузов хранится в массиве М(15). Определить, сколько рейсов необходимо сделать судну, если грузы неделимы и могут перевозиться только подряд в порядке их нумерации. (Предполагается, что масса отдельного груза не превышает 50 тонн).

mas=array[1..15] of integer;

writeln (‘ Введите m’,'[‘,i,’]’);

writeln (‘Введите стартовый капитал’);

writeln (‘Введите % увеличения капитала’);

writeln (‘Введите сумму, необходимую для покупки магазина’);

Число Цукермана – натуральное число, которое делится на произведение своих цифр, например: 175 делится на 1·7·5=35. Составить программу, которая выводит на экран все трехзначные числа Цукермана.

for i := 111 to 999 do

b := (i div 10) mod 10;

if (b <> 0) and (c <> 0) and (i mod (a * b * c) = 0) then writeln (i);

На конференцию приехало N человек. Для их перевоза выделили автомобили вместимостью К и М человек (без водителя). К гостинице автомобили подаются в таком порядке: сначала вместимостью К человек, потом – М человек и так далее. В автомобиле можно перевозить не более максимально допустимого количества пассажиров. Определить, сколько необходимо автомобилей для перевозки всех делегатов конференции.

writeln (‘Введите количество участников’);

writeln (‘Введите вместимость первого автомобиля’);

writeln (‘Введите вместимость второго автомобиля’);

if x mod 2<>0 then N:=N-K else N:=N-M;

A: array [1..4] of integer;

writeln (‘Израсходовано спичек’, m );

Сформировать квадратную матрицу следующего вида.

A: array [1..5, 1..5] of byte;

a := 8 * a + 4 * b + 2 * c + d;

Даны два натуральных числа. Найти их наименьшее общее кратное.

while m <> n do begin

if m > n then begin

Дана последовательность символов длины n ( n >= 1 ). Проверить баланс круглых скобок в этом выражении. Например, при вводе выражения (())() программа должна сообщить о правильности расстановки скобок, а при вводе выражения ((()) – о неправильности.

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

for i := 1 to n do begin

if c = ‘(‘ then inc(count);

if c = ‘)’ then dec(count);

a, b, i, j, d, m:integer;

function nod(a, b:integer):integer;

if a>b then nod:=nod(a-b, b) else nod:=nod(a, b-a)

writeln (‘ Введите НОД двух чисел d’);

writeln (‘ Введите НО K двух чисел m’);

if ((nod(a, b)=d) and ((a*b div nod(a, b))=m)) then writeln (i, j);

Правительство гарантирует, что инфляция в новом году составит р % в месяц. Какого роста цен за год можно ожидать? Составить программу решения задачи.

Сложные проценты вычисляются по формуле .

writeln (‘Введите процент месячной инфляции’);

writeln (‘ Введите размер фонда ’);

writeln (‘Введите количество отличников, хорошистов и троечников’);

readln ( n 1, n 2, n 3);

writeln (‘Введите размер стипендий’);

if f>s1*n1 then k1:=n1 else k1:=f div s1;

if f>s2*n2 then k2:=n2 else k2:=f div s2;

if f>s2*n3 then k3:=n3 else k3:=f div s2;

writeln (‘Количество отличников, получивших стипендию=’, k 1);

if k 2>0 then writeln (‘Количество хорошистов, получивших стипендию= ‘, k 2);

if k 3>0 then writeln (‘Количество троечников, получивших стипендию =’, k 3);

writeln (‘Фонд материальной помощи=’, f );

Источник

Интересные факты и лайфхаки
Adblock
detector