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.
Var a,b,c: integer; Begin write('Ведите трёхзначное число: '); readln (a); b:=a div 100; c:=a mod 100 div 10; writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b) End.
Var a,b,c,d: integer; Begin write('Ведите трёхзначное число: '); readln (a); b:=a div 100; c:=a mod 100 div 10; d:=a mod 10; writeln('Число, полученное перестановкой цифр сотен и десятков: ',c,b,d) End.
<span>Рассмотрим исходное число 171673₈ Самая левая цифра 1 в двоичной записи имеет два нуля, но поскольку цифра самая левая, то они оба незначимые и не учитываются. В остальных цифрах все нули значимые. А теперь вместо каждой цифры запишем количество нулей в ней и сложим написанные числа: </span><span>0+2+1+0+1=4