с заданием по информатике
1. Написать код программы на Паскале, вычисляющей площадь и длину круга, при известном радиусе и числе Пи.
2. Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.
Щелкните, чтобы написать ответ
Прикрепить файл
3. Найти периметр и площадь прямоугольного треугольника, если даны длины его катетов a и b.
4. Даны два ненулевых числа. Найти их сумму, разность, произведение и частное.
Метод find принимает три параметра:
substring (символ/подстрока) — подстрока, которую нужно найти в данной строке.
start (необязательный) — первый индекс, с которого нужно начинать поиск. По умолчанию значение равно 0.
end (необязательный) — индекс, на котором нужно закончить поиск. По умолчанию равно длине строки.
после чего принимается данная функция
>>> string = "Добро !"
>>> start = string.find("п")
>>> end = string.find("ь") + 1
>>> print("Индекс первой буквы 'о' в подстроке:", string.find("о", start, end))
Индекс первой буквы 'о' в подстроке: -1
var a: array[1..5] of integer;
s: char;
min, i, j, k: integer;
begin
writeln('Введите массив:');
for i:=1 to 5 do
begin
write('a[',i,'] = ');
readln(a[i]);
end;
for i:=1 to 5 do
write(a[i], ' ');
writeln;
write('Введите символ (x, y, z): ');
readln(s);
if (s = 'x') or (s = 'X') then
begin
min := a[1];
k := 1;
for i:= 2 to 5 do
if min > a[i] then
begin
min:= a[i];
k:= i;
end;
writeln('Min = ', min, ', Index = ', k);
end;
if (s = 'y') or (s = 'Y') then
begin
for i:= 1 to 5 do
for j:= 1 to 4 do
if a[j] > a[j + 1] then
begin
k:= a[j];
a[j]:= a[j + 1];
a[j + 1]:= k;
end;
for i:=1 to 5 do
write(a[i], ' ');
writeln;
end;
if (s = 'z') or (s = 'Z') then
begin
for i:=1 to 5 do
k:= k + a[i];
writeln('Сумма = ', k);
end;
end.