Помогите пожалуйста информатика программируем на pascal.1)Вводится 2 различных целых числа ,
Помогите пожалуйста информатика программируем на pascal.
1)Вводится 2 различных целых числа , проверить делится ли 1-ое на 2-ое.Вывести на экран сообщение об этом , а также остаток (если есть) и приватное (в любом случае)
2)Вводится 3 различных целых числа , отыскать какое из их среднее.
3)Найти корни квадратного уравнения и вывести их на экран , если они есть , если корней нет , то вывести извещение об этом. Данное квадратное уравнение определяется коэффициентами a,b,c , которые вводит юзер. Помогите пожалуйста!Безотлагательно!!!
1 ответ
Андрей Шамшад
Begin
readln(a);
readln(b);
if a mod b = 0 then write(a div b) else write('остаток ', a mod b, ', а частное ', a div b)
end.
begin
read(a, b, c);
write((a+b+c)/3);
end.
begin
read(a, b, c);
D:=sqrt(sqr(b) * (-4)*a*c);
if Dgt;0 then begin
writeln('x1 = ', (-b+D)/2*a);
writeln('x2 = ', (-b+D)/a*2);
end;
else if D=0 then writeln('x = ', -b/a*2)
else writeln('нет корней');
end.
проверь всё в компиляторе, я не уверен
readln(a);
readln(b);
if a mod b = 0 then write(a div b) else write('остаток ', a mod b, ', а частное ', a div b)
end.
begin
read(a, b, c);
write((a+b+c)/3);
end.
begin
read(a, b, c);
D:=sqrt(sqr(b) * (-4)*a*c);
if Dgt;0 then begin
writeln('x1 = ', (-b+D)/2*a);
writeln('x2 = ', (-b+D)/a*2);
end;
else if D=0 then writeln('x = ', -b/a*2)
else writeln('нет корней');
end.
проверь всё в компиляторе, я не уверен
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
Облако тегов