Держи Turbo Pascal:
<span><span>uses crt;
var i: integer;
begin
clrscr;
for i:=1 to 10 do
writeln(i);
readln;
end.
</span></span>
При таком алфавие один символ кодируется 1 байтом
итого кол-во символов 30*70*5 = 10500
соответсвенно кол-во байт тоже 10500
Ответ 10500 байт
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var mn:=Arr('январь','февраль','март','апрель','май','июнь',
'июль','август','сентябрь','октябрь','ноябрь','декабрь');
var n:=ReadInteger('Номер месяца');
case n of
12,1,2:Write('Зима');
3,4,5:Write('Весна');
6,7,8:Write('Лето');
9,10,11:Write('Осень');
else begin
Writeln('Неверный номер');
exit
end
end;
Writeln(', ',mn[n-1],', предшествующий ',n=1?mn[11]:mn[n-2],
', следующий ',n=12?mn[0]:mn[n])
end.
<u>Пример</u>
Номер месяца 2
Зима, февраль, предшествующий январь, следующий март
1)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
for i:=1 to n do
begin
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
2)var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
repeat
i:=i+1;
read(a);
s:=s+a;
until i=n;
writeln('s = ',s);
end.
3)
var n,a,s,i:integer;
begin
write('n = ');
readln(n);
writeln('Введите ',n,' чисел:');
s:=0;
i:=0;
while i<n do
begin
i:=i+1;
read(a);
s:=s+a;
end;
writeln('s = ',s);
end.
Пример:
n = 5
Введите 5 чисел:
8 2 9 6 4
s = 29
85 Фоксов - лгут
50 Фордов - лгут
100 - 85 = 15 - Фоксов говорят правду
100 - 50 = 50 - Фордов говорят правду
85 + 50 = 135 - количество фоксов и фордов, которые лгут
15 + 50 = 65 - количество фоксов и фордов, которые говорят всегда правду
300 - (135+65) = 300 - 200 = 100
В условии не сказано, что Фоксфорды вообще могут лгать. Так, что по идеи ответ 100.
