Задачи по Pascal. Сумма двух чисел

Задачи по Pascal

Условие задачи : Вводятся три произвольных числа. Проверить не является ли одно из них суммой двух других.

Сложность : легкая .

Для решения этой задачи нам понадобиться три переменные под числа и оператор условия 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.

cyber
Оцените автора
CyberLesson | Быстро освоить программирование Pascal и C++. Решение задач Pascal и C++
Добавить комментарий