1)Алгоритм решения задачи: <span>Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.<span>Площадь крыши бака (круга) вычисляется по формуле <span>p * d2 /4</span> (где p – число пи, d - диаметр).
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
</span></span><span>Программа на языке Паскаль:
<span>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.
</span></span>
В 1988 году была отмечена эпидемия компьютерного вируса<span> Jerusalem, который был запрограммирован на особенно разрушительные действия, если активировался в пятницу 13-го. В первый раз это произошло в пятницу </span>13 мая 1988 года<span>. Этот </span>чёрный юмор<span> был перенят авторами некоторых других компьютерных вирусов.</span>
Берем для примера любое число. Допустим 1172. Нужно перевести его в 5-ричную систему счисления. Необходимо делить число на основание результирующей системы счисления в которую хотим перевести, пока не останется число, меньшее этого <span>основания результирующей системы счисления</span>. Чтение ответа нужно делать слева направо. Дальше на скриншоте:
var a,b,c:integer;
begin
write('Введите a = ' );readln(a);
if a>=0 then a:=sqr(a) else a:=sqr(a*a);
write('Введите b = ' );readln(b);
if b>=0 then b:=sqr(b) else b:=sqr(b*b);
write('Введите c = ' );readln(c);
if c>=0 then c:=sqr(c) else c:=sqr(c*c);
writeln('a = ',a,' b = ',b,' c = ',c);
end.