Извините незнаю этого языка
Объяснение:
757: 8
-752 =5
94 :8
-88 =6
11: 8
-8 =3
-8:8
1
757в10= 1365в 8
757.7в10 = 1365.54в8 (не стала писать слишком долго. просто перемножаешь)
Program gt;
var a:array[1..7]of integer;
k,i,q:integer;
begin
read(k);
q:=0;
for i:=1 to 7 do
read(a[i]);
for i:=1 to 7 do
begin
if(a[i]>-20)then writeln(i,' день ',k,' тонн угля');
if(a[i]<=-20)and(a[i]>=-30)then writeln(i,' день ',k+5,' тонн угля');
if(a[i]<-30)then writeln(i,' день ',k+12,' тонн угля');
if(a[i]<-30)then q:=q+1;
end;
writeln(q,' дней температура было ниже -30');
end.
Var
a,b: integer;
begin
write('Введите a:');readln(a);
write('Введите b:');readln(b);
if a<>b then writeln((b+2*a)/b)
else writeln(a,' = ',b);
end.