3:
var a,b,c,d,e,f,g:real;
begin
write('Введите сумму наличных средств (руб): '); readln(a);
write('Введите стоимость 1 кг конфет (руб): '); readln(b);
write('Введите массу конфет (кг): '); readln(c);
write('Введите стоимость 1 кг яблок (руб): '); readln(d);
write('Введите массу яблок (кг): '); readln(e);
f := b*c + d*e;
g := a - f;
writeln('Стоимость покупки составит ', f:0:2, ' руб.');
writeln('Сдача ', g:0:2, ' руб.');
end.
4:
var a:real;
begin
write('Введите длину куба: '); readln(a);
writeln('Объём куба = ', a*a*a:0:2);
writeln('Площадь поверхности куба = ', 6*a*a:0:2);
end.
3 Вида гиперссылок
Объяснение:
Внутренние ссылки (internal links) – это ссылки на объекты в пределах одного документа. С их пользователь может перемещаться по одной и той же Web-странице. Данный тип ссылок полезно использовать на длинной странице, чтобы иметь возможность быстро перемещаться между ее разделами.
Внешние (external links) или удаленные (distant links) ссылки – это ссылки на другие Web-серверы.
Относительные (relative links) или локальные (local links) ссылки – это ссылки на другие Web-страницы или службы Internet, расположенные на одном сервере со страницей, содержащей ссылки. Подобные ссылки называются относительными потому, что их адреса даются относительно адреса Web-страницы, на которой содержится ссылка.
var a, b: integer;
begin
readln(a);
b := a * a;
b := b * b;
b := b * b;
b := a * b;
writeln(b);
end.
Вывести числа [a; b] и их квадраты
Var a, i, b: integer;
begin
readln(a, b);
for i := a to b do
writeln(i, ' ', sqr(i));
end.
Произведение 2-х чисел
Var a, b: integer;
begin
readln(a, b);
writeln(a * b);
end.
Максимальное и минимальное из 100 введённых чисел без использования массивов:
var k1, mi, ma, i: integer;
begin
readln(ma);
readln(mi);
for i := 1 to 98 do
begin
readln(k1);
if (ma < k1) then ma := k1;
if (mi > k1) then mi := k1;
end;
writeln(ma, ' - ', mi);
end.
Перевод из 10чной СС в 2чную
Var b:array [1..255] of integer;
a, i, n:integer;
begin
readln(a);
i := 0;
while (a >= 1) do
begin
i := i + 1;
b[i] := a mod 2;
a := a div 2;
end;
n := i;
for i := n downto 1 do write(b[i]);
end.
X в степени Y
var x, y: real;
begin
readln(x, y);
writeln(exp(ln(X) * Y));
end.
Вот)