program perimetr;
var a: integer;
begin
writeln('Программа по нахождению периметра многоугольников');
write('Введите сторону многоугольника ');
readln(a);
writeln();
writeln('треугольник ', a*3);
writeln('квадрат', a*4);
writeln('пятиугольник', a*5);
writeln('шестиугольник', a*6);
writeln('семиугольник', a*7);
writeln('восьмиугольник', a*8);
end.
Объяснение:
program perimetr; // название программы
var a: integer; // объявление переменных
begin
writeln('Программа по нахождению периметра многоугольников'); //выводим задачу программы
write('Введите сторону многоугольника '); // просим ввести сторону многоугольника
readln(a); // считываем это число в переменную а
writeln(); // используем как enter
writeln('треугольник ', a*3);
writeln('квадрат', a*4); { в этой части кода мы в каждом действии выводим название фигуры и ее периметр, так как стороны у фигур равны, просто умножаем введенную сторону на их количество}
writeln('пятиугольник', a*5);
writeln('шестиугольник', a*6);
writeln('семиугольник', a*7);
writeln('восьмиугольник', a*8);
end.
Сучасний розвиток ІТ сфери впроваджується в усі сфери нашого життя - навчання, виробництво, державотворення, торгівля та ін.
Ми використовуємо інформаційні технології в своєму житті, сплачуючи комунальні послуги, замовляючи товари, оформлюючи документи, працюючи зі спеціалізованими програмами на своїй роботі та ін., - і в такому випадку стаємо користувачами тих, чи інших інформаційних продуктів.
Або стаємо учасниками створення самих цих продуктів, і тоді ми є розробниками програмного забезпечення чи тестерами, - людьми, що тестують програмний продукт та надають розробниками рекомендації для подальшого вдосконалення.
Тож, якщо ви хочете навчитись використовувати популярні програми, перегляньте розділ Освоюємо програми.
Якщо ж ви прагнете стати програмістом чи тестером, - перегляньте розділи Програмування та тестування
Объяснение:
Почитай
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
var m:=Readinteger('Что ищем?');
var k:=a.FindAll(x->x=m).Count;
Writeln('Найдено таких элементов- ',k);
if k>0 then Writeln('Номер первого такого элемента- ',
a.FindIndex(x->x=m)+1)
end.
Пример
n= 17
-46 33 -9 -22 14 -46 -6 -3 -7 -18 46 42 -40 -40 0 29 -9
Что ищем? -9
Найдено таких элементов- 2
Номер первого такого элемента- 3