Объем видеопамяти равен 2,5 мбайта, глубина цвета — 16, разрешающая экрана монитора — 640×480 точек. найти максимальное количество страниц, которое можно использовать при этих условиях.
Var a, b: integer; var c: string; begin writeln('Введите 1 число.'); readln(a); writeln('Введите 2 число.'); readln(b); writeln('Знак операции.'); readln(c); if c='*' then writeln(a*b); if c='/' then writeln(a/b); if c='-' then writeln(a-b); if c='+' then writeln(a+b); end. 2 ЗАДАЧА var a, b: real; begin writeln('Зарабаток Пети:'); readln(a); writeln('Зарабаток Петрова:'); readln(b); if a>b then writeln('Петя заработал больше Петрова.') else if a=b then writeln('Петров и Петя заработали одинаково.') else writeln('Петров заработал больше Пети.'); writeln('Среднее: ', (a+b)/2); end.
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второеое число: '); ReadLn(b); sum_d:=(a div 10) + (b div 10); sum_e:=(a mod 10) + (b mod 10); WriteLn('сумма десятков чисел: ', sum_d); WriteLn('сумма единиц чисел: ', sum_e); end.
Вторая программа.
Program d_and_e;
Var a,b,mult_d1_e2,mult_e1_d2:integer;
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второе число: '); ReadLn(b); mult_d1_e2:=(a div 10) * (b mod 10); mult_e1_d2:=(a mod 10) * (b div 10); WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2); end.
Третья программа.
Program d_and_e;
Var a,b,mult_d1_e2,sum_e1_d2:integer;
Begin WriteLn('введите первое число: '); ReadLn(a); WriteLn('введите второе число: '); ReadLn(b); mult_d1_e2:=(a div 10) * (b mod 10); sum_e1_d2:=(a mod 10) + (b div 10); WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2); WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2); end.
т.е при заполнении 4,3 страниц памяти не будет хватать.
Поэтому макс. колво страниц равно 4