Var
p:real;
k:integer;
begin
Write('Грузоподъемность судна: '); Read(p);
Write('Количество судов: '); Read(k);
Writeln('Грузоподъемность флотилии составит ',p*k)
end.
<u>Пример</u>
Грузоподъемность судна: 12000
Количество судов: 7
Грузоподъемность флотилии составит 84000
Потому что создается растровая графика фотоаппаратами, сканерами, непосредственно в растровом редакторе, также путем экспорта из векторного редактора или в виде скриншотов.
18 мб = 18 * 1024 кб = 18432 * 1024 байт = 18874368 * 8 бит = 150994944 бит
Ответ: 150994944 бит
var
x: real;
begin
Write('Введите значение аргумента, не равное нулю: '); Readln(x);
if x = 0 then Writeln('Нулевой аргумент недопустим!')
else Writeln(sqr(x) * abs(1 - x) - 7 / (sqr(x) - 15))
end.
<u>Тестовое решение:</u>Введите значение аргумента, не равное нулю: 24.35
13844.7282626493
Var n,f,i:integer;
begin
n:=10;
f:=1;
for i:=1 to n do f:=f*i;
writeln(n,'! = ',f);
end.
Результат:
10! = 3628800