1(a) Program Zadanie; var a,b,c,d:integer; begin writeln('введите два числа'); readln(a,b); c:=a+b; writeln(c); readln; d:=a-b; writeln(d); readln; end.
b) Program Zadanie; var a,b,c,d:integer; begin writeln('введите два числа'); readln(a,b); c:=a+b; d:=a-b; writeln(c,d); readln; end.
c) Program Zadanie; var a,b,c,d:integer; begin writeln('введите два числа'); //здесь вводим два числа readln(a,b); c:=a+b; d:=a-b; writeln(c,d); readln; end.
2. Program Zadanie; var a,b,c,d:integer; begin writeln('введите три числа'); readln(a,b,c); d:=a*b*c; writeln(d); readln; end.
3. Program Treugol; var a,b,c,d:real; begin writeln('введите два числа'); readln(a,b); c:=2*(a+b); d:=a*b; writeln(c,d); readln; end.
4.
Program Goda; var R:real; begin write('введите R'); readln(R); <span><span>d:=R*356; </span><span>c:=d*24; </span><span>m:=c*60; </span><span>s:=m*60; </span></span>writeln(d); writeln(c); writeln(m); writeln(s); readln; end.