Алгоритмдерді құрыңдар. 1.< < бәліш> > .асхат асханадан бәліш алып жейді.бір бәлішке тоймағанын түсініп,тағы да бәліш алды! 2.< < аудару> > .сөздікті ағылшын тілінен қазақ тіліне аудару. 3.< < кедергі> > .қанаттың ойыншық мәшинесі кедергіге соғылса,артқа жүреді.
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.
в полной правильности я не уверен(т.к у меня нету паскаля),проверь компилятором