Задача: Дана длина окружности. Определить площадь круга. Ученик не дописал решение задачи. Заполните - id1141057120230506 от avalak99 06.05.2023 15:21

Question

Информатика: Задача: Дана длина окружности. Определить площадь круга. Ученик не дописал решение задачи. Заполните пропуски так, чтобы программа решала поставленную задачу. Для необходимых вычислений в Паскале есть значение числа π обозначенное как pi.

avalak99 · Accepted Answer

// Язык Паскаль

Program Massiv;

Uses Crt;

const n=10; // Нужно больше сам подставишь нужное число

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

i,c:integer;

begin

clrscr;

write('Введите элементы массива: ');

c:=0;

for i:=1 to n do

begin

readln(a[i]);

if (a[i] mod 2)=0 then c:=c+1;

end;

writeln;

write('Исходный массив:');

for i:=1 to n do write(a[i],' ');

writeln('Количество чётных элементов: ',c);

readkey;

end.

MOGZ ответил