7. Ақпаратты бір тілден басқа тілге аудару, басқа әдіспен 8. Ақпаратты ұсыну үшін қолданылатын, бір-бірінен өзара
ерекшеленетін символдар немесе белгілер жиынтығы не деп
С) криптоград
D) алмастыру әдісі
E) телеграф
А) кілт
В) код
С) алфавит
D) үйлесімділік
E) символ
аталады?
А) сандар
В) бейнеақпарат
С) алфавит
D) файл
E) жарлық
9. Екілік кодтау дегеніміз не?
А) ақпаратты геометриялық фигура арқылы ұсыну
В) ақпаратты екілік алфавитті қолдану арқылы ұсыну
C) сандарды екіге бөлу
D) ақпаратты график арқылы бейнелеу
E) ақпаратты кез келген сандардың жиынтығы арқылы
жеткізу
10. Екілік кодтауда қандай символдар қолданылады?
А) 0, 2
В) 1,
C) а, в
D) 0, 1
Е) 1, 2​

program vt;

type toy = record     // тип игрушка

      name : string;   // название

      price : integer;     // стоимость

      age : integer;         // возрастные границы

      a: boolean;

end;

var

    f : text; // переменая для работы с файлом

    i : integer; // счетчик

    size : integer;   // кол. игрушек

    maxage : integer; // макс. возрастная граница

    maxprice : integer;     // макс цена игрушки

    mas : array [1..100] of toy;   // контейнер игрушек

begin

      assign(f, 'input.txt');   // связываем переменную с файлом

      reset(f);               // открываем файл на чтение

      i : = 1;                 // 1 игрушка

      maxprice : = 400;         // макс цена = 400

      maxage: =5;                 //макс. возрастная граница = 5

      while (not eof(f)) do   // пока не дошли до конца файла

      begin

          readln(f, mas[i].name);     // считываем данные об игрушке

          readln(f, mas[i].price);

          readln(f, mas[i].age);

          maxage > mas[i].age;   //найти все до 5 лет

          writeln

      end;

end.

ответ: у тебя не правильное .в начале нужно найти максимальное число не оканч.на 3 , а потом вывести макс. число оканчивающееся на 3.ты разберись. но если ты шаришь в икт и просто не знаешь , как задать условие ,то там нужно через целые и кратные (div/mod) в твоем случае будет как-то так

if a mod 10=3 and a> max then max: =a

ну если ты ленивая жо#а то вот:

var a,b,k,max: integer;

begin

writeln('введите количество чисел > > n ');

readln(n);

max: =0;

for k: = 1 to n do;

begin

writeln('введите числа > > a ');

readln(a);

if (a mod 10=3) and (a> max) then max: =a

end;

writeln('самое больше число оканчивающееся на 3 -',max)

end.

в полной правильности я не уверен(т.к у меня нету паскаля),проверь компилятором