Программа на Pascal Abc задача: Равны ли суммы первой и второй пары цифр четырёхзначного числа. к примеру числа где каждая буква разряд: abcd примерно a=1 b=4 c=3 d=2 тогда должно быть a+b=c+d 1+4=2+3 5=5 мне кажется так, но не понимаю как перевести это в паскаль
Var a,b,c,d:real; begin readln(a,b,c,d); if a+b=c+d then writeln('a+b = c+d') else writeln('a+b <> c+d'); end.
ну даже если так то скорей всего будет так var a,b,c,d,m,n:integer; begin readln(a,b,c,d); m:=a+b; n:=c+d; if m=n then writeln('Да') else writeln('Нет'); end.
но при этом же переменные а б ц д просто переменные но вроде как надо же и четырёхзначное число то тоже как-то ввести
Ну тут задан тип integer, т.е. с десятичной дробью ничего не получится, и для удобства введены m и n которым присвоена сумма a+b и соответственно c+d, ну а если вопрос Равны ли и ответ не должен быть типа a+b = c+d, то можно и заменить это на "Да" или "Равно", т.е. программы идентичны и по сути ничего не изменено да + с десятичной не работает
а ну так readln для чего в программе стоит?)
а тут десятичными дробями и не пахнет, здесь только целочисленное как я указывал в задании то четырёхзначное число должно быть:1432,4132,1423,4132. как-то так.
readln это ввод нужных переменных с новой строки
аа понял тоесть ты имеешь ввид чтобы просто read вместо readln
а ну разницы между readln и read нету (одна и так же функция), ссори не заметил что десятичные не нужны, но integer по сравнению с real ограничено, так что если будут использоваться десятичные,то integer с этим не справится
ну это то понятно да, но там просто четырёхзначное число с 4 разрядами и всё. read просто ввод,а readln ввод с новой строки