Блок-схема и код программы в приложениях.<span>
Примечание:</span> результат работы программы будет равен 0, т.к. 0 - целое число.
Program zadacha;
var rad, a, b, c, p:real;
begin
p:=3.14;
writeln('Введите радиус круга: ');
readln(rad);
writeln('Введите сторону квадрата: ');
readln(a);
b:=p*(rad*rad);
c:=a*a;
if b>c then
writeln('Площадь круга больше, чем площадь квадрата.')
else
writeln('Площадь квадрата больше, чем площадь круга.');
end.
Фрактальная графика, также как векторная и трёхмерная,
является вычисляемой. Её главное отличие в том, что изображение строится по
уравнению или системе уравнений. Поэтому в памяти компьютера для выполнения
всех вычислений, ничего кроме формулы хранить не требуется. <span>Только изменив
коэффициенты уравнения, можно получить совершенно другое изображение. Эта идея
нашла использование в компьютерной графике благодаря компактности
математического аппарата, необходимого для ее реализации. Так, с помощью
нескольких математических коэффициентов можно задать линии и поверхности очень
сложной формы.</span>
64*20=1280
Вроде так,если я не ошибаюсь
Program n1;
const n=5;
var a: array [1..n] of integer;
k,i: integer;
begin
k:=0;
for i:=1 to n do readln(a[i]);
for i:=1 to n do if (a[i]=7) then k:=k+1;
writeln('количество: ',k);
end.