Вот.
В FCEditor удобно делать.
<span>Program pro;
uses crt;
type anketa=record
fam:string[20];
im:string[12];
voz: 1..18;
at: real;
tel: integer;
end;
var i,n:integer;
student: anketa;
f:file of anketa;
begin
clrscr;
assign(f,'C:\PABCWork.NET\St.dat');
reset(f);
Write('Введите количество новых учащихся');
Readln(n);
For i:=1 to n do
Write('Введите Фамилию учащегося:');
Readln(student.fam);
Write(f,student.fam,' ');
Write('Введите Имя учащегося:');
Readln(student.im);
Write(f,student.im,' ');
Write('Введите Возраст учащегося:');
Readln(student.voz);
Write(f,student.voz,' ');
Write('Введите Средний бал аттестата учащегося:');
Readln(student.at);
Write(f,student.at,' ');
Write('Введите Телефон учащегося:');
Readln(student.tel);
Writeln(f,student.tel);
end;
close(f);
readkey;
end.</span>
===== PascalABC.NET =====
begin
var n := ReadInteger('n=');
var a := ArrRandom(n, -99, 99);
a.Println;
var so := a.Where(p -> p.IsOdd).Sum;
for var i := 0 to a.High do
if a[i] mod 3 = 0 then
a[i] := so;
a.Println
end.
Ответ:
4533₈ = 2395₁₀
C49A₁₆ = 50330₁₀
1011100011₂ = 739₁₀
Объяснение:
4533₈ = 3*8⁰ + 3*8¹ + 5*8² + 4*8³ = 2395₁₀
C49A₁₆ = A*16⁰ + 9*16¹ + 4*16² + C*16³ = 50330₁₀
1011100011₂ = 1*2⁰ + 1*2¹ + 0*2² + 0*2³ + 0*2⁴ + 1*2⁵ + 1*2⁶ + 1*2⁷ + 0*2⁸ + 1*2⁹ = 739₁₀
Орёл - зрение, Волк обоняние, Летучая мышь - слух, Крот - осязание.