Составьте программу позволяющую проверить умение выполнить сложение двух целых чисел, каждая из которых не больше ста.
p.s. Чуваки, от этого зависит моя четвертная оценка.

  • var

    a,b,s : integer;

    begin

    writeln('введите 1 число которое не больше 100');

    readln(a);

    writeln('введите 2 число которое не больше 100');

    readln(b);

    if (a=>100) and (b=>100)  then

    writeln('я же говорил(а) не больше ста заново вводи!!!! ')

    else

    s:=a+b;

    begin

    writeln('Получилось = ',s);

    end;

    end.




See also: