program calc;
var
sum,raz,umn,celx1,celx2,ostx1,ostx2,korenx1,korenx2:real;
N,x1,x2:integer;
begin
write('Введите номер операции: ');
readln(N);
case N of
1:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
sum:=x1+x2;
writeln('Сумма чисел = ',sum);
end;
2:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
raz:=x1-x2;
writeln('Разность чисел = ',raz);
end;
3:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
umn:=x1*x2;
writeln('Произведение чисел = ',umn);
end;
4:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
celx1:=x1 div x2;
celx2:=x2 div x1;
writeln('Целая часть от деления x1 на x2 = ',celx1);
writeln('Целая часть от деления x2 на x1 = ',celx2);
end;
5:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
ostx1:=x1 mod x2;
ostx2:=x2 mod x1;
writeln('Остаток от деления x1 на x2 = ',ostx1);
writeln('Остаток от деления x2 на x1 = ',ostx2);
end;
6:begin
write('Введите первое число: ');
readln(x1);
write('Введите второе число: ');
readln(x2);
korenx1:= sqrt(x1);
korenx2:= sqrt(x2);
writeln('Квадратный корень числа x1 = ',korenx1);
writeln('Квадратный корень числа x2 = ',korenx2);
end;
else
writeln;
write('Введен неизвестный номер операции');
end;
end.
Объяснение:
# Так сойдёт?
from math import sqrt
print('Введите коэффициенты a, b, c для ax^2 + bx + c = 0 в виде "a b c", где коэффициент а не равен 0')
a, b, c = list(map(int, input().split())) # здесь поменяй ввода квадратного уравнения, если другой нужен
D = b ** 2 - 4 * a * c # дискриминант
if D < 0:
print("Нет решений")
elif D == 0:
x = (-1 * b + sqrt(D)) / (2 * a)
print("Уравнение имеет одно решение:", x)
else:
x1 = (-1 * b + sqrt(D)) / (2 * a)
x2 = (-1 * b - sqrt(D)) / (2 * a)
print("Уравнение имеет два решения:", x1, "и", x2)
Файл - это информация, хранящаяся на внешнем носителе и объединенная общим именем. Для прояснения смысла этого понятия удобно воспользоваться следующей аналогией: сам носитель информации (диск) подобен книге. Мы говорили о том, что книга - это внешняя память человека, а магнитный диск - внешняя память компьютера. Книга состоит из глав (рассказов, разделов), каждый из которых имеет название. Также и файлы имеют свои названия. Их называют именами файлов. В начале или в конце книги обычно присутствует оглавление - список названий глав. На диске тоже есть такой список-каталог, содержащий имена хранимых файлов. Каталог можно вывести на экран, чтобы узнать, есть ли на данном диске нужный файл.
Объяснение: