Решите дою 40 2. дано натуральное число n. составьте на паскале программу для нахождения суммы первой и последней цифр этого числа. 3. дано натуральное число n и цифра к. составьте на паскале программу, которая определяет. есть ли в записи числа n цифра к.

pascalвыделить код

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 var i,n: integer;     p,cs,sn: real; begin     repeat       write('введите n: '); readln(n);     until n> 0;     p: =1;     for i: =1 to n do     begin       cs: =cs+cos(i);       sn: =sn+sin(i);       p: =p*(cs/sn)     end;     writeln('произведение = ',p: 0: 6);     readln; end.

2

s: =n mod 10;

while n> 10 do

n: =n div 10;

s: =s+n;

Вид  мультипликации, создаваемый при   компьютера. в отличие от более общего понятия  «графика cgi», относящегося как к неподвижным, так и к движущимся изображениям, компьютерная анимация подразумевает только движущиеся. на сегодня получила широкое применение как в области развлечений, так и в производственной, научной и деловой сферах. являясь производной откомпьютерной графики, анимация наследует те же способы создания изображений: векторная графикарастровая графикафрактальная  графикатрёхмерная графика  (3d)

Type num=1..999; var x: num; k,y: integer; begin   write('x=');   readln(x);   y: =x;   k: =0;   while y< > 0 do     begin     y: =y div 10;     k: =k+1;     end;   if (x mod 2)=0 then     write('четное ')   else     write('нечетное ');   if k=1 then write('однозначное ')   else     if k=2 then write ('двухзначное ')     else       write('трехзначное ');   writeln('число'); end.