Пользователь ввел 2 числа. Если первое меньше второго, то вычеслить их сумму, если нет, то разнозть. Напишите программу, пожалуйста.
типо если нет то отнять?
Progran A1;Var a,s,d,f:real; BeginWriteln ('Введите значение а');Readln (a);Writeln ('Введите значение s');Readln (s);If a Begind:=a+b;Writeln ('ответ',d);End;Else beginf:=a-b;Writeln (' ответ',f);End;End. Фуу
прога правильная
блин за что?
Вы добьетесь, что аккаунт забанят...
начало не видно
блин с телефона неудобно
факкк
И опять криво
Program A1; Var a, b, c, r:real; Begin Writeln (' Введите значение a'); readln (a); Writeln ('Введите значение b'); readln (b); if abegin c:=a+b; Writeln ('c=', c); end else r:=a-b; Writeln ('r=", r); end; end.
Ну вот что-то у вас с кодировкой...кривизна какая-то. Зайдите с другого устройства попробуйте.
нет Samsung
Небось еще и айфон?
да
Вы что, с телефона пишете?
но там должно быть а·<·b
Настройте свою программу, у вас символы коряво отображаются
у меня нет (
вот вышло только а а б гет
ну уже не сегодня у меня ток в коментах пишет а<d
Var a, b: real; begin Write('Введите через пробел два числа: '); Readln(a, b); if a < b then Writeln(a + b) else Writeln(a - b) end.
Вы пишите свой вариант, спрашивающий разберется, что ему нужно.
все написал
нет
там нужно что б паскаль сам вычеслил