Яна нашла в любимом блоге красивую блузку и решила попытаться сшить такую же самостоятельно. Для этого ей понадобилось разрезать ткань шириной в a см и длиной в b см на четыре прямоугольника. Она отметила точку на расстоянии x см вправо и y см вверх от левого нижнего угла и разрезала ткань через отмеченную точку параллельно сторонам.
Даны числа a, b, x, y. Выведи площадь каждого из получившихся отрезов в столбик (в произвольном порядке).

👇

Увидеть ответ

Открыть все ответы

Ответ:

nika270106

19.12.2022

Вам нужно:

1) перевести строку в массив символов

2) узнать длину полученного массива

3) создать ещё один пустой символьный массив

4) создать цикл, в котором будут записываться элементы первого массива во второй, пока не встретится запятая. если же встретилась запятая, то заканчиваем выполнение цикла

5) узнать размер нового массива, который состоит из букв первого слова

6) вывести последний элемент нового массива, что и будет последней буквой первого слова

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

4,5(16 оценок)

Ответ:

Карапиди

19.12.2022

var i: integer; begin // С С С Вывод последовательности 1 3 5 7 9var i,x: integer; begin // С и промежуточной переменной x := 1; for i := 1 to 5 do begin write(x,' '); x := x + 2; end; writeln; // С без промежуточной переменной for i := 1 to 5 do write(2*i-1,' '); writeln; // С С Сумма и произведение введенных чиселКод на Pascalvar i: integer; s,p: real; x: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for i := 1 to 10 do begin read(x); s := s + x; p := p * x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Код на PascalABC.NETvar s,p: real; begin writeln('Введите 10 чисел: '); s := 0; p := 1; for var i := 1 to 10 do begin var x: integer; read(x); s += x; p *= x; end; writeln('Сумма введенных чисел = ',s); writeln('Произведение введенных чисел = ',p); end.Вычисление n!Код на Pascalvar n,fact: integer; i: integer; begin write('Введите n (n<=13): '); readln(n); fact := 1; for i := 2 to n do fact := fact * i; writeln(n,'! = ',fact); end.Код на PascalABC.NETvar n: integer; begin write('Введите n (n<=13): '); readln(n); var fact := 1; for var i := 2 to n do fact *= i; writeln(n,'! = ',fact); end.Вычисление AnКод на Pascalvar n,i: integer; a,p: real; begin write('Введите a,n: '); readln(a,n); p := 1; for i := 1 to n do p := p * a; writeln(a,' в степени ',n,' = ',p); end.Код на PascalABC.NETvar n: integer; a: real; begin write('Введите a,n: '); readln(a,n); var p := 1.0; for var i := 1 to n do p *= a; writelnFormat('{0} в степени {1} = {2}',a,n,p); end.

4,7(95 оценок)

Это интересно:

Кулинария-и-гостеприимство

19.02.2020

Как приготовить сливочную яичницу болтунью...

Стиль-и-уход-за-собой

25.06.2021

Как наносить тональную крем-пудру: лучшие способы...

Здоровье

25.04.2020

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

Стиль-и-уход-за-собой