Маалымат булактары кайсылар​

1) Тип обрабатываемой информации: числовая, Правило преобразования: первая буква числа, ?=»о» (одиннадцать)

2) Тип обрабатываемой информации: числовая, Правило преобразования: первая буква числа, обозначающего количество цифр в записи исходного числа, «ч»

3)Тип обрабатываемой информации: текстовая, Правило преобразования: определяет часть речи (первая буква), ?=»с» (река- существительное)

4) Тип обрабатываемой информации: текстовая, Правило преобразования: определяет род слова, ?=»с»(шоссе — средний род)

5) Тип обрабатываемой информации: текстовая, Правило преобразования: количество букв в слове, ?=5 (вечер, 5 букв)

6) Тип обрабатываемой информации: числовая, Правило преобразования: четность/нечетность числа, ?=»ч»(48, четное)

7) Тип обрабатываемой информации: текстовая, Правило преобразования: определяет «вид» животного, ?=»р» (сом — рыба)

8) Тип обрабатываемой информации: текстовая, Правило преобразования: печатает третью букву в слове, ?=»о» (стол)

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.