Программирование линейных алгаритмов решите задачи:
1.Дано число А число В в 2 раза больше вычеслите сумму числа целые.
2.Определите частное целых чисел Х и У.
3.Имеется участок прямоугольной фотмы со сторонами А и В определите Р участка.
Делайти так чтоб там было:
Program
var
Begin
WriteLn
ReadLn
End.

1

Ответы и объяснения

2013-10-25T15:17:59+04:00
1.  Program first; 
     Uses Crt; 
     var a, b : integer;  
      begin           
      Write('Введите a');           ReadLn(a);                      b:=2*a;                                Write('сумма a и b',a+b);  
    end.

2.
 Program second; 
    Uses Crt; 
    var a, b : integer;  
     begin           
     Write('Введите a ');           ReadLn(a);
      Write('Введите b ');           ReadLn(b);                     
      Writeln('Частное a и b=',a div b);
   end.

3.
 Program thrid; Uses Crt; var a, b : integer;  begin           Write('Введите a ');           ReadLn(a);
           Write('Введите b ');           ReadLn(b);                     Writeln('Периметр=',(a+b)*2);
 end.