Задача «Смайлик»
Бабуся одного із учнів почала активно використовувати електрону пошту для спілкування зі своїми родичами. Вона знає, що для передавання емоцій при електронному листуванні використовують смайлики. Але бабуся має сумнів у тому, що використання того чи іншого смайлика буде правильно сприйнято адресатом.
Створити презентацію для пояснення призначення смайликів: до кожного з них потрібно додати власне фото, та сформувати відповідні поради щодо використання в дружньому спілкуванні.
function nmbdec(var n,osn: integer): integer;
var nmb,l,s,k: integer;
begin
nmb:=0; s:=0;
k:=n; l:=1;
while k>0 do
begin
s:=k mod 10;
k:=k div 10;
nmb:=nmb+l*s;
l:=l*osn;
end;
Result:=nmb;
end;
{ конец функции}
begin
write('число: ');
readln(n);
write('квадрат какого числа: ');
readln(m);
osn:=10;
while osn>=2 do
begin
osn:=osn-1;
if nmbdec(n,osn)=sqr(nmbdec(m,osn)) then
begin
writeln('основание системы = ',osn);
break;
end;
end;
end.