var a,b: real;
begin
readln(a,b);
if a*b<0 then writeln(a*b*2) else writeln(a*b*1.5);
end.
Program Mas;
Var a:array[1..100] of integer;
i, n: integer;
Begin randomize;
writeln('Введите размерность массива',n);
readln(n);
for i:=1 to n do
a[i]:=random(45)-1; readln;
for i:=1 to n do
begin if a[i]>15 then
write(' ',a[i]);
end;
readln;
End.
Алг Возраст
нач
цел возраст, единицы лет
лит текст
вывод "Укажите полное число лет: "
ввод возраст
единицы лет:=mod(возраст,10)
выбор
при возраст>=5 и возраст<=20:текст:="лет"
при единицы лет=1:текст:="год"
при единицы лет>=2 и единицы лет<=4:текст:="годa"
иначе текст:="лет"
все
вывод "Мне "+цел_в_лит(возраст)+" "+текст
кон
1. 2*32 = 62 байт
2. ((1626-1536)*8*1024)/(32*60*24) = 16 бит
3. 5 бит, но если меньше 32, то достаточно и 4 бит
4.
5.
8*168 = 1344 бит = 168 байт
6.
7.
5*6 = 30 = 30/8 = 4 байта
4 * 125 = 500 байт
Var a,b,p:integer;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
p:=a;
while p<b do
begin
write(p,' ');
p:=p*a;
end;
end.
Пример:
<span>a = 2
b = 20
2 4 8 16</span>