5) Определите, какое число будет напечатано в результате выполнения следующего алгоритма: var a, b, t, N, P:integer;
Function F(x: integer) :integer;
begin
F := 4* (5-x) * (5-x)+10;
end;
BEGIN
a := -10; b := 10;
P:= 40;
N := 0;
for t := a to b do begin
if (F(t) > P) then begin
N := N+1;
end;
end;
write (N);
END.
Сейчас всех кого не лень сажают за компы, даже тех кому оно особо и не надо
Бухи используют специальные бухгалтерские проги чтоб считать данные и сдавать отчеты в разные организации, бд обязательны
Кассиры подсчитывают и фиксируют купленные товары и чеки в специальных своих программах, опять таки бд тоже
программисты в зависимости от вида деятельности пользуются различными средами разработки, тестирования, системами контроля версии и багтрекерами
художники и дизайнеры пользуются фотошопами, 3д программами, корелами и тп
если надо больше то напиши мне сообщение
var a,b,c,d: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a);
writeln('b= ',b);
writeln('c= ',c);
writeln('D=b*b-4*a*c=',d);
if (d>0) then begin
writeln('D>0 => уравнение имеет 2 действительных различных корня ');
writeln('x1= ',(-b+sqrt(d))/(2*a));
writeln('x2= ',(-b-sqrt(d))/2*a);
end else if (d=0) then begin
writeln('D=0 => уравнение имеет 2 совпадающих корня');
writeln('x1=x2=',-b/(2*a));
end else writeln('D<0 => уравнение не имеет действительных корней');
end.