Лабораторная работа №3
Проектирование программ циклической структуры”
Вариант – 14
(из книги: “Алгоритмизация и программирование на
Турбо Паскале” В.C. Новичков)
Автор: SlavikS
Program Lab_03;
{Programma dlya vivideniya kolichestva
chetnih chisel v uravnenii
Ubeditelnaya prosba xot` nemnogo menyat` isxodnii text programmi,
vsetaki prepoda odni i tege, mogut pridrat`sya :))
}
const
f=(' ');
var
b,x: real;
a,i,z: integer;
begin
Writeln (f,'Vvedite X');
write(f);readln (x);
Writeln ;
Writeln('___+____+___+____+____+____+____+____+___');
Writeln;
Writeln (f,'Pri X=',x:3:2);
{VIvodit na ecran eho vivoda}
a:=trunc (sin(x*x));
b:=x*x*x*x;
i:=0;
for z:=a to trunc(b) do
begin
if z mod 2=0 then i:=i+1;
end;
i:=i-1;
Writeln (f,'Chislo chetnih chisel:',i);
writeln;
Writeln (' Nagmite [Enter] (c)_S');
Writeln ('_________________________________________________');
writeln;
Readln;
end.