Var a,b,c,d:real;
begin
writeln('Введите коэффициенты уравнения через пробел');
read(a,b,c);
d:=sqr(b)-4*a*c;
writeln('Дискриминант = ',d:6:2);
readln;
end.
Алгоритм можете составить сами исходя из программы. (Всего лишь замена служебных слов)
В пятеричной системе счисления
432:12 = 31.32412032412032412032412032412032412032412032412<span>032
А если сокращать то: 31.3</span>
1)256×4×64=65536
2)16×32×512=262144
3)10×2^10×8=1600
4)2^5×12×32=3840
5)64×1/16×256=1024
6)32×8×1/4=512
вот так
Ответ:
Объяснение:
program kalk;
var
a, b, c :integer;
begin
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
writeln('Cумма трех чисел равна',a+b+c);
writeln('Разность трех чисел равна',a-b-c);
writeln('Произведение трех чисел равно',a*b*c);
end.
Есть вариант поставить вместо:
writeln('Введите 1 число:');
readln(a);
writeln('Введите 2 число:');
readln(b);
writeln('Введите 3 число:');
readln(c);
поставить так:
writeln('Введите 3 числа: ');
readln(a, b, c);