На pascal abc,решить используя type надо) составить программу которая создает файл каждая строка которого выглядет так: табельный номер,фио,оклад. ввести в файл данные о 5-ти работниках и вывести в другой файл максимальный оклад

270

320

Посмотреть ответы 2

Ответы на вопрос:

Bekarys2002

Информатика

4,4(4 оценок)

var i,max: integer; fio: string; x: array[1..5] of integer; f1,f2: text; begin assign(f1, 'out.txt'); assign(f2, 'out2.txt'); rewrite(f1); rewrite(f2); for i: =1 to 5 do begin writeln('daite fio ',i,'-ogo rabotnika'); readln(fio); writeln('daite otklad rabotnika ',i); readln(x[i]); writeln(f1, i,' ',fio,' ',x[i]); fio: =''; end; max: =x[1]; for i: =1 to 5 do if x[i]> max then max: =x[i]; writeln(f2, max); close(f1); close(f2); readln; end.

rabotatet! proveril v pascale

Antonio11111111

Информатика

4,6(68 оценок)

Для хранения 16777216 используется 24-битная палитра, т.к. 2^24 = 16777216. то есть один пиксель занимает 24 бита 24 бит = 3 байт, т.к. 24/8 = 3 кол-во пикселей равно 720*348, каждый пиксель занимает 3 байта, то есть объем изображения в байтах равен: 720*348*3 = 751680 байт.