const n = 50; vari: byte; b: array[1..n] of word; procedure proc(a: array of word); beginfor i: =1 to n doif((129 < = a[i]) and (a[i] < = 160)) or ((161 < = a[i]) and (a[i] < =175)) or ((225 < = a[i]) and (a[i] < = 242)) thenwriteln('index = ',i+1,'; bukva - ''',char(a[i]),'''',' a[i] = ',a[i]); end;
beginwriteln; for i: =1 to n do b[i] : = random(300); for i: =1 to n do begin write(' ',i,' = ',b[i]); if (i mod 5 = 0) then writeln; end; writeln; writeln; proc(b); readln;
end.
Ответ дал: Гость
var x,i,x1,x2,x3: integer
s: string;
begin
read(x);
s: =str(x);
x1: =int(s[1]);
x2: =int(s[2]);
x3: =int(s[3]);
if (x1+x3)mod x2=0 then writeln("да")
else writeln("нет");
end.
Ответ дал: Гость
самая крупная птица это страус к тому же он ещё не летает
Ответ дал: Гость
1. по буквам
2. по слогам
3. по согласным
4. произношение на оборот
5. по 1ой букве в алфавите. н-р весна в-3-я буква, р-18-я в алфавите
Популярные вопросы