program aaa;
var a,b,d:integer;
begin
read(a);
d:=1;
while a> 0 do begin
b:=a mod 10;
a:=a div 10;
d:=d*b;
end;
writeln(d);
end.
N=64
N=2 в степени i
i = 6
I = k * I= 6*12=72
Задний фон (Background) для сайтов и игр, также фон рабочего стола
Иконки для программ (имеют формат .ico и разрешение 16 на 16 точек)
Var k,ans:integer;
begin
k:=0;
write('Пробежишь кружочек? (1-да, 0-нет) ');
readln(ans);
while ans=1 do
begin
k:=k+1;
write('Пробежишь ещё кружочек? (1-да, 0-нет) ');
readln(ans);
end;
writeln('k = ',k);
end.
Пример:
Пробежишь кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 1
Пробежишь ещё кружочек? (1-да, 0-нет) 0
k = 3
База отправлена на почту, если нужна еще кому то, стучаться в личку.