Const n=10;
var a:array[1..n] of integer;
prz:integer;
i:byte;
begin
prz:=1;
for i:=1 to n do
begin
a[i]:=-56+random(103);
if (i mod 2=0) and (a[i]>5) then
prz:=prz*a[i];
write(a[i],' ');
end;
writeln('prz= ',prz);
end.
Главное слово ИНФОРМАЦИЯ(дальше слова идут на каждую букву, начиная с первой)
СМИ - 1) Сокращенная аббревиатура средств распростанения массовой информации.
Книги - 2) Одно из видов печатной продукции, состоящее из сброшюрованных или отдельных бумажных листов(страниц) на которые нанесена графическая или текстовая информация?
ДЕЗИНФОРМАЦИЯ - 3) Заведомо ложная информация по другому?
ОБЩЕНИЕ - 4) Коммуникативный способ получать информацию?
ИСТОРИЯ - 5) Один из способов получать информацию о развитии человечества?
КОМПЬЮТЕР - 6) Устройство открывающее доступ к огромному количеству информации.
МАССОВАЯ - 7) Вид информации <span>содержащий тривиальные сведения и оперирующий набором понятий, понятным большей части </span>социума это?<span>
</span>СОЦИУМ - 8) Группа людей связных между собой теми или иными отношениями и обменивающиеся информацией называется?
ИСТИННАЯ - 9) Как по другому называется достоверная информация?
АКТУАЛЬНАЯ - 10) Как называется информация, ценная в данный момент времени?
такой сойдет?
<span />
Автоматический (через заданное количество времени), и по щелчку
Пишу с телефона если есть возможность-проверь.Если справился,буду рад)
Uses CRT;
Var a,b,c,D,x,x1,x2 : integer;
Begin
D:=0;
Writeln('Дано уравнение ax^4+bx^2+c=0,введите а,b,c);
Readln(a);readln(b);readln(c);
D:=b*b - 4*a*c;
If D<0 then writeln('Нет корней');if X=0 then writeln('Уравнение имеет 1 корень-',(-b/2a)*b');
if D>0 then begin
x1:=(-b+ sqrt D)/2a;
x2:=(-b- sqrt D)/2a;
writeln('Корни вашего уравнения:');writeln('x1=',x1*b,'x2=',x2*b);
End;
End.
Program kv_ur;
var a, b, c, d, x1,x2, x:real;
begin
read(a, b, c);
d:= sqr(b) - 4*a*c;
if d<0 then write('нет решений');
if d = 0 then
begin
x:= -b/(2*a); write('один корень: ',x:5:2)
end;
if d>0 then
begin
x1:=(-b+sqrt(d))/(2*a);
<span> x2:=(-b-sqrt(d))/(2*a);
</span> write('два корня: ', 'x1=',x1:5:2,'x2=',x2:5:2)
end
end.