Условие задачи : Вводятся три произвольных числа. Проверить не является ли одно из них суммой двух других.
Сложность : легкая .
Для решения этой задачи нам понадобиться три переменные под числа и оператор условия if.
Давай те объявим эти три переменные и попросим пользователя занести в них какие то целые числа :
uses crt ; var num1 , num2 , num3 : integer; begin write('Введите первое число : '); readln(num1); write('Введите второе число : '); readln(num2); write('Введите третье число : '); readln(num3); end.
Дальше нам надо написать условие… как оно у нас будет работать ?
Мы возьмем первое число и напишем такое условие :
if num1 = num2 + num3 then writeln('Число ', num1 , ' это сумма ', num2 ,' и ', num3);
Тут нечего трудного : если первое число равняется сумме двух других то выводим сообщение…
Ну и дальше пишем остальные условия. Все условия будут выглядеть так :
if num1 = num2 + num3 then writeln('Число ', num1 , ' это сумма ', num2 ,' и ', num3) else if num2 = num1 + num3 then writeln('Число ', num2 , ' это сумма ', num1 ,' и ', num3) else if num3 = num1 + num2 then writeln('Число ', num3 , ' это сумма ', num1 ,' и ', num1) else writeln('Не одно из чисел не является суммой двух других');
Вот вроде бы и всё, тут самое главное понять как сделать хотя бы одно условие , и конечно знать как делаются вложенные условия.
Весь код программы :
uses crt ; var num1 , num2 , num3 : integer; begin clrscr; write('Введите первое число : '); readln(num1); write('Введите второе число : '); readln(num2); write('Введите третье число : '); readln(num3); if num1 = num2 + num3 then writeln('Число ', num1 , ' это сумма ', num2 ,' и ', num3) else if num2 = num1 + num3 then writeln('Число ', num2 , ' это сумма ', num1 ,' и ', num3) else if num3 = num1 + num2 then writeln('Число ', num3 , ' это сумма ', num1 ,' и ', num2) else writeln('Не одно из чисел не является суммой двух других'); readln; end.