В кинотеатре 30 рядов кресел. В первом ряду 20 кресел, в каждом последующем на2 кресла больше чем в предыдущем. Напишите цикл, который будет определять количество кресел в кинотеатре.
Первые символы кода — «•–» — могут кодировать только букву А. С символа «–» начинается только буква Д. Следующей буквой может быть либо буква А, либо буква Л, однако, буква А нам не подходит, поскольку в таком случае дальнейшая расшифровка невозможна. Комбинация «–» соответствует букве Т, «–••» — букве Д, «•–» — букве А. Итак, шифром закодировано сообщение АДЛТДДТАТ.
Вот ещё на заметку приложил фотографию. Я разбиваю сообщение на буквы и ищу существующую цепочку.
begin while (true) do begin readln(a); if (a = 9999) then break else System.IO.File.AppendAllText('F.txt', IntToStr(a) + System.Environment.NewLine); end; end.
const e = 5;//Кол-во курсов и групп
var a, b, c, d: integer; f: string;
begin for a := 1 to e do begin writeln(''); writeln('Группа №', a); writeln(''); writeln('Сколько обучающихся сдали на "отлично"?'); readln(b); f += inttostr(b) + ' - '; c += b; writeln('Сколько обучающихся сдали на "хорошо"?'); readln(b); f += inttostr(b) + ' - '; c += b; writeln('Сколько обучающихся сдали на "удовлетворительно"?'); readln(b); f += inttostr(b) + ' - '; c += b; writeln('Сколько обучающихся сдали на "неудовлетворительно"?'); readln(b); f += inttostr(b); c += b; f := inttostr(c) + ' - ' + inttostr(c - b) + ' - ' + f; System.IO.File.AppendAllText('result.dat', f + System.Environment.NewLine); end; end.
Вот ещё на заметку приложил фотографию. Я разбиваю сообщение на буквы и ищу существующую цепочку.
a: integer;
begin
while (true) do
begin
readln(a);
if (a = 9999) then
break
else
System.IO.File.AppendAllText('F.txt', IntToStr(a) + System.Environment.NewLine);
end;
end.
const
e = 5;//Кол-во курсов и групп
var
a, b, c, d: integer;
f: string;
begin
for a := 1 to e do
begin
writeln('');
writeln('Группа №', a);
writeln('');
writeln('Сколько обучающихся сдали на "отлично"?');
readln(b);
f += inttostr(b) + ' - ';
c += b;
writeln('Сколько обучающихся сдали на "хорошо"?');
readln(b);
f += inttostr(b) + ' - ';
c += b;
writeln('Сколько обучающихся сдали на "удовлетворительно"?');
readln(b);
f += inttostr(b) + ' - ';
c += b;
writeln('Сколько обучающихся сдали на "неудовлетворительно"?');
readln(b);
f += inttostr(b);
c += b;
f := inttostr(c) + ' - ' + inttostr(c - b) + ' - ' + f;
System.IO.File.AppendAllText('result.dat', f + System.Environment.NewLine);
end;
end.