По сути мы имеем числа длины 5 в трочной системе счисления.
А вместо 0, Н - 1, Т - 2
первое число ААААА = 00000 = 0
потому на 74 месте будет число 73(в десятичной) = 02201 (в троичной) = АТТАН (в требуемой записи)
Var a,k:integer;
begin
a:=-1;
k:=-1;
while a<>0 do begin
read(a);
if a mod 7 = 0 then k+=1;
end;
writeln(k);
<span>end.</span>
Число делить на 100 и умножать на 102 каждый раз. Что сложного?
Код на C#, мало чем отличается:
int K = Convert.ToInt32(textbox1.Text); // заменяешь функцией чтения введённого значения
int otvet = K/100*102; // твой ответ
Ответ:
Надо было нажать ети англ. символь на руской раскладке
Объяснение:
Сегодня на ужин у нас лосось
type
person=record
fam:string;
imya:string;
day:integer;
end;
var
a:array[1..50] of person;
i,n,z:integer;
begin
write('n=');readln(n);
for i:=1 to n do
begin
write('fam-');readln(a[i].fam);
write('imya-');readln(a[i].imya);
write('day-');readln(a[i].day);
end;
write('z-');readln(z);
for i:=1 to n do
if a[i].day=z then writeln (a[i].fam, ' ',a[i].imya);
readln;
end.