Паскаль. дано натуральное число n. найти и вывести все числа в интервале от 1 до n - 1, у которых сумма всех цифр совпадает с суммой цифр данного числа. если таких чисел нет, то вывести слово "нет". пример: n = 44. числа: 17, 26, 35.

Не уверен может не var a,n,sn,s,i,n1: integer; begin readln(n); n1: =n; repeat sn: =sn+n1 mod 10; n1: =n1 div 10; until n1=0; for i: =1 to n-1 do begin a: =i; s: =0; repeat s: =s+a mod 10; a: =a div 10; until a=0; if s=sn then write(i,' '); end; readln; end.

var s,p: real;

i: integer;

begin

  p: =1;

  for i : = 1 to 14 do

      if i mod 2 = 0 then p: =p*i

      else s: =s+i;

  writeln(p,s);

end.

по сути простенькая.

v=u*t

объем = скорости передачи умноженная на время

v= 7680*90 (90сек=1.5 мин. секунды это система си)

v= 691200бит

v одного символа 16бит, а всего 400 символов на странице => вес страницы равен 16*400=6400 бит

чтобы найти количество страниц надо общий объем поделить на объем одной страницы.

691200/6400=108

ответ: всего было передано 108 страниц.