Uses crt;
type sInfo = record
surname:string;
height:integer;
end;
var pInfo:array [1..12] of sInfo;
begin
pInfo[1].surname := 'Смирнов';
pInfo[1].height := 190;
pInfo[2].surname := 'Иванов';
pInfo[2].height := 155;
pInfo[3].surname := 'Николаев';
pInfo[3].height := 150;
pInfo[4].surname := 'Викторов';
pInfo[4].height := 168;
// И так далее по примеру выше.
// Вывод вот так:
writeln('Фамилия = ', pInfo[1].surname, ' Возраст = ', pInfo[1].height);
end.
Program m1;
const n=5;
var sum,m,i: longint;
begin
write('введите m: ');
readln(m);
sum:=0;
for i:=1 to m*n do if i mod 2=0 then sum:=sum+i;
writeln('сумма четных: ',sum);
end.
Код (Pascal)
var
c: array[1..15] of integer;
i, k: integer;
pr: longint;
begin
for i:=1 to 15 do
read(c[i]);
pr:=1;
k:=0;
for i:=1 to 15 do
if c[i]=30 then
begin
pr:=pr*3;
k:=k+1;
end;
if k=0 then pr:=0;
write(pr);
for i := 1 to k do write(0);
writeln(' ', k);
end.
Пример во вложении.
То, что нужно "выписать на листочек" написано ручкой.
Какие могут быть искажения:
1. Например рисующий человек никогда не видел декартову систему координат и поменяет оси местами. Тогда звезда "ляжет" на абсцисс, хотя её фигура и не пострадает.
2. Забудет соединить последнюю точку с первой и замкнуть контур.
3. и т.д.... какой-нибудь человеческий фактор придумаете.
1) 30 букв плюс 10 цифр в сумме дают 40 символов. Значит, для их кодировки нам потребуются цифры от 0 до 39. Переведем 39 в двоичную систему счисления, чтобы посмотреть, сколько битов (разрядов) оно займет.
39(10)=100111(2) ⇒ требуется 6 битов.
2) В номере сертификата 5 символов, значит они займут 5*6=30 битов. По условию номер сертификата кодируется целым количеством байтов, а в байте 8 бит. Делим 30 на 8 и получаем 3.75. Округляем в большую сторону. Номер сертификата занимает 4 байта.
3) 80 номеров займут 4*80=320 байт. Ответ 2).