решить задание. A2^16 → X^10

Question

Информатика: решить задание. A2^16 → X^10

ждл1 · Accepted Answer

Var   i,n,k:integer; begin   Writeln( 15 чисел, кратных 19: );   i:=100;   while i mod 19 0 do Inc(i); { первое, кратное 19 }   Write(i, );   k:=1;   while k 15 do begin i:=i+19; Write(i, ); Inc(k) end;   Writeln end. Тестовое решение: 15 чисел, кратных 19: 114 133 152 171 190 209 228 247 266 285 304 323 342 361 380 Задача 2. var   m,V,rho,rmax:real;   i:integer; begin   Writeln( Максимальная плотность материала для 30 тел. );   Writeln( Вводите через пробел массу тела (кг) и объем (куб.см) );  ...

MOGZ ответил

решить задание.
A2^16 → X^10