Тема: pascal, цикл з передумовою; задано ціле число. знайти суму цифр у записі числа.

//pascal abc.net v3.1 сборка 1172 var   n,c,s: integer; begin   read(n);   while n< > 0 do   begin     c: =n mod 10;     s: =s+c;     n: =n div 10;   end;   writeln(s); end. пример ввода: 123 пример вывода: 6

v=640*360*3 - объем этой видеопамяти.

v=x*y*9 - остался прежним

x*y= 640*360*3/9=76800

76800=320*240. раньше были такие размеры изображений.

ответ: 320х240

 

№1. программа на паскале

program xxx;

  var n : integer;

              x : array[1..10] of integer;

begin

  for n: =1 to 10 do

      x[n]: =sqr(n) + 5;

  wreteln('последовательность х: ')

  for n: =1 to 10 do

          write(x[i]);

    readln

end.