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

Question

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

DenchickKristall Гуру (3920), закрыт 1 год назад

Answer 1

Анатолий Зайцев Профи (777) 1 год назад

Ну и шо там сложного инпут "введите первое число",а инпут "введите второе",б с=а -б
Инпут"разность равна ",с

DenchickKristallГуру (3920) 1 год назад

где ты в паскале инпут нашел

Анатолий ЗайцевПрофи (777) 1 год назад

Write "веедите число а";
Input a ;тормаз

Дмитрий Шишкин Гений (65505) Анатолий Зайцев, в Паскале нет такой команды (по крайней мере, в классическом) как input. Есть команды read (a) и readln (a).

Answer 2

Sesared Знаток (357) 1 год назад

 var a, b, c: integer; 
begin 
  write('Первое число: '); 
  readln(a); 
  write('Второе число: '); 
  readln(b); 
  c := a - b; 
  writeln('Разность: ', c); 
end.

DenchickKristallГуру (3920) 1 год назад

можно же просто

 var a,b:real;
begin
writeln('Введите числа');
read(a,b);
writeln(a-b);
end.

Sesared Знаток (357) DenchickKristall, да, не спорю, можно проще

Answer 3

 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.