В
Все
М
Математика
О
ОБЖ
У
Українська мова
Д
Другие предметы
Х
Химия
М
Музыка
Н
Немецкий язык
Б
Беларуская мова
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
Р
Русский язык
У
Українська література
Ф
Французский язык
П
Психология
А
Алгебра
О
Обществознание
М
МХК
В
Видео-ответы
Г
География
П
Право
Г
Геометрия
А
Английский язык
И
Информатика
Қ
Қазақ тiлi
Л
Литература
И
История
gvarya05
gvarya05
11.01.2020 02:14 •  Информатика

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.

Показать ответ
Ответ:
kirill877
kirill877
31.07.2022 19:13

Сейчас всех кого не лень сажают за компы, даже тех кому оно особо и не надо

Бухи используют специальные бухгалтерские проги чтоб считать данные и сдавать отчеты в разные организации, бд обязательны

Кассиры подсчитывают и фиксируют купленные товары и чеки в специальных своих программах, опять таки бд тоже

программисты в зависимости от вида деятельности пользуются различными средами разработки, тестирования, системами контроля версии и багтрекерами

художники и дизайнеры пользуются фотошопами, 3д программами, корелами и тп

 

если надо больше то напиши мне сообщение

 

0,0(0 оценок)
Ответ:
Dffgvfh
Dffgvfh
21.08.2020 00:10
Program kvur;
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.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота