его тип, и компьютер по нему распознает какой программой открыть файл.
Var
i,x:integer;
sr:real;
begin
sr:=0;
for i:=1 to 4 do
begin
write('Оценка за задачу №',i,' ');
readln(x);
sr:=sr+x;
end;
sr:=sr/4;
write('Средняя оценка ',Round(sr));
End.<span>
</span>
===== PascalABC.NET =====
begin
ReadSeqIntegerWhile(p -> p <> 0)
.Where(p -> p mod 3 = 0).Min.Println
end.
1) *
******
*****
2)**
т.к. тут 0, то ничего нет
****
***
345 в 8=3×8²+4×8¹+5×8¹=192+32+40=164 в 10
Надеюсь помогла))Успехов)