Mail.ruПочтаМой МирОдноклассникиВКонтактеИгрыЗнакомстваНовостиКалендарьОблакоЗаметкиВсе проекты

Найти разность двух чисел на паскаль абц

DenchickKristall Гуру (4313), закрыт 1 год назад
Лучший ответ
Анатолий Зайцев Профи (777) 1 год назад
Ну и шо там сложного инпут "введите первое число",а инпут "введите второе",б с=а -б
Инпут"разность равна ",с
DenchickKristallГуру (4313) 1 год назад
где ты в паскале инпут нашел
Анатолий ЗайцевПрофи (777) 1 год назад
Write "веедите число а";
Input a ;тормаз
Дмитрий Шишкин Гений (65768) Анатолий Зайцев, в Паскале нет такой команды (по крайней мере, в классическом) как input. Есть команды read (a) и readln (a).
Остальные ответы
Sesared Знаток (364) 1 год назад
 var a, b, c: integer; 
begin
write('Первое число: ');
readln(a);
write('Второе число: ');
readln(b);
c := a - b;
writeln('Разность: ', c);
end.
DenchickKristallГуру (4313) 1 год назад
можно же просто

 var a,b:real;
begin
writeln('Введите числа');
read(a,b);
writeln(a-b);
end.
Sesared Знаток (364) DenchickKristall, да, не спорю, можно проще
Дмитрий Шишкин Гений (65768) 1 год назад
 Program P1; 
uses crt;
var a, b: real;
begin
clrscr;
writeln ('Введите с клавиатуры 2 числа, после ввода каждого числа нажимайте клавишу Enter. При вводе дробных чисел целую часть от дробной отделяйте точкой, а не запятой.');
write ('Введите 1-ое число: ');
readln (a);
write ('Введите 2-ое число: ');
readln (b);
writeln ('Ответ: ', a, '-', b, '=', a-b);
write ('Программа завершена. Для выхода нажмите клавишу Enter.');
readkey;
end.
Похожие вопросы