Question

срочно помогите 70 балов​ язык паскаль

Answer 1

Задача 9

Program Znanija;

   var a:integer;

   begin

   Write('Введите а:');

   Readln(a);

   

   If a>0 then //Если число больше 0, то оно положительное

       a:=a+20 //Тогда мы прибавляем 20

   Else

       a:=a-5; //Если же оно окалось отрицательным, то мы отнимем 5

   WriteLn('Итоговое число: ', a);

End.

Задача 4

Program Znanija;

   var a,b,c:integer;

   begin

   Write('Введите а и b:'); //Выводим уведомление

   WriteLn(); //Делаем красивый отступ

   Readln(a,b); //Вводим числа а и b

   If a>b then //Осуществляем проверку. Если 1-ое число больше, то

       c:=a-b // отнимаем от него второе,

   Else //иначе

       c:=b-a; //делаем наоборот

   

   WriteLn('Итоговое число: ', c); //Выводим итоговое число

End.