Перевести число 155 в системы счисления с основанием 2, 8, 16 и выполнить проверку, т.е. полученные числа перевести в десятичную систему счисления ОЧЕНЬ НУЖНО УМОЛЯЮ
Сами программы не проверял, если они правильные, то 2) program zak; uses crt; type danie=record litri:string; cislo:string; end; DanieVodi=file of danie; var DV:DanieVodi; D:danie; i,n:integer; begin clrscr; assign(DV,'d:\azaz.txt'); rewrite(DV); repeat writeln('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou'); readln(D.cislo); writeln('BBeDuTe KoJlu4ecTBo IIoTpa4eHou BoDbl'); readln(D.litri); if D<>'stop' then write(DV,D); until D='stop'; close(DV); readln; end.
1) uses crt; type danie=record litri:string; cislo:string; max,min:real; end; DannieVodi=file of danie; var DV:DannieVodi; D:danie; i,n:integer; cislo1:string; begin clrscr; assign(DV,'d:\azaz.txt'); reset(DV); write('BBeDuTe 4ucJlo u Mec9lTc oTTDeJl9l9l To4Kou:'); read(cislo1); while not eof(dv) do begin read(DV,D);
if min='0' then min:=StrToFloat(D.cislo); if StrToFloat(D.cislo)<min then min:=StrToFloat(D.cislo); if StrToFloat(D.cislo)>max then max:=StrToFloat(D.cislo);
if cislo1=D.cislo then writeln('6blJlo IIoTpa4eHo "',D.litri,'" JluTpoB BoDbi'); end;
writeln('min=',min); wtiteln('max=',max);
close(DV); readln; end.
Если это не учебная задача, то лучше сделать ее в Access. Там интерфейс красивый и дружелюбный легко получить.
1)Алгоритм решения задачи: Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.Площадь крыши бака (круга) вычисляется по формуле p * d2 /4 (где p – число пи, d - диаметр). Площадь боковой поверхности цилиндра: p * d * h (где h – высота). Программа на языке Паскаль: const pi = 3.14; var d, h, b: real; top, wall, q: real; q_int: integer; begin write('Диаметр: '); readln(d); write('Высота: '); readln(h); write('Окрашиваемая площадь одной банкой: '); readln(b); top := pi * sqr(d) / 4.0; wall := pi * d * h; q := (top + wall) / b; q_int := trunc(q) + 1; write('Количество банок: ', q_int); readln end.
155 в двоичной системе счисления = 10011011
в восмеричной = 233
в 16-ой системе счисления = 9B