Наибольшее двузначное число, произведение цифр равно 63
Program name;
var
a,b:integer;
begin
//Переменная B является сложным процентом за год
b:=0.24;
а:=10000*b;
a:=a+10000;
writeln('Остаток вклада за один год:',а);
а:=0;
b:=0,48;
a:=10000*b;
a:=a+10000;
writeln('Остаток за второй год:',a);
end.
Begin
write('A':4, 'B':6, 'F1':6);writeln;
for A:= false to true do begin
for B:= false to true do begin
F1:= (not(A) or B) and (not(A) or not(A));
write(A:6, B:6, F1:6);writeln;end; end;writeln;write('X':4, 'Y':6, 'Z':6, 'F2':6);
writeln;
for X:= false to true do begin
for Y:= false to true do begin
for Z:= false to true do begin
F2:= (not(X) and Y) or not(Z);write(X:6, Y:6, Z:6, F2:6);writeln;end; end;end;<span>end.</span>
1
var n,s,i:integer;
begin
readln(n);
for i:=3 to n do
if (n mod i=0) and (i mod 3=0) and (i mod 2>0) then
s:=s+i;
writeln ('Ответ: ',s);
<span>end.
2
var
n,i:integer;
x,y:real;
begin
readln(x,n);
y:=1;
for i:=1 to n do y:=y*x;
writeln (x,'^',n,'=',y);
<span>end.
</span>
3
</span><span>var n,i:integer;
begin
n:=1;
writeln('Часы ',' Кол-во');
while i<25 do
begin
writeln(i:3,n:6);
n:=n*2;
i:=i+3;
end;
<span>end.</span></span>
Да 7-6=1 так как у второго ёжика 1 яблоко