supanzerbe
31.08.2021 09:50

Нужно написать программу для нахождения корней квадратного уравнения и ответ.Вот уравнение:5x^2-9x-2=0.

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
4yfkilo5
10.08.2020 00:03
Microsoft Paint — многофункциональный, но в то же время довольно простой в использовании растровый графический редактор компании Microsoft, входящий в состав всех операционных систем Windows, начиная с первых версий. Первая версия Paint появилась в Windows 1.0. В Windows 3.0 был переименован в PaintBrush. Но потом в Windows 95 и поздних версиях Windows он был опять переименован в Paint (однако, программа может вызываться и командой-затычкой pbrush, что есть явное сокращение от Paint Brush). В версии из Windows 3.x и более ранних версиях поддерживались только форматы MSP, BMP, PCX и RLE. В последующих версиях из этих форматов осталась поддержка лишь одного - BMP.

В Windows 95 была введена новая версия Paint. Тот же самый интерфейс продолжает использоваться в следующих версиях Windows. В Windows 98, Windows 2000 и Windows ME изображения могли быть сохранены в форматах GIF и JPEG, если были установлены необходимые графические фильтры от Microsoft (обычно они устанавливались вместе с другими приложениями от Microsoft, такими как Microsoft Office или Microsoft PhotoDraw). Начиная с Windows XP фильтры стали предустановленными, и добавилась поддержка форматов PNG и TIFF. В Windows Vista и Windows 7 полностью изменены иконки.

Windows 7 Править
0,0(0 оценок)
Ответ:
Офелия12345
11.04.2023 22:06
{ У тебя было two+theere+fore+five, т.е. ты складываешь все тройки четверки и тд и делишь на их количество, т.е. всегда будет "1", нужно посчитать сумму и поделить на количество.
Подправил твой код:}
program p1;
const n=20;
var i,a1,two,theere,fore,five,sum:integer;
sr:double;
a:array[1..20] of integer;
begin
two:=0;
theere:=0;
fore:=0;
five:=0;
sr:=0;
sum:=0;
for i:=1 to n do
begin
read(a1);
sum:= sum + a1;
a[i]:=a1;
if a[i]=2 then
two:=two+1;
if a[i]=3 then
theere:=theere+1;
if a[i]=4 then
fore:=fore+1;
if a[i]= 5 then
five:=five+1;

end;
writeln('Количество двоек: ',two);
writeln('Количество троек: ',theere);
writeln('Количество четвёрок: ',fore);
writeln('Количество пятёрок: ',five);
sr:=(sum)/n;
writeln(sr);
end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота