поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe
Ответ дал: Гость
read(n);
s = str(n);
n1 : = int(s[1]);
n2 : = int(s[2]);
n3 : = int(s[3]);
if (n1+n2+n3) mod 2 = 0 then writeln("сумма чисел четная")
Ответ дал: Гость
640*350=224 000 пикселей 224000*2=448 000 пикселей на 2-х страницах. 16 цветов - 4 битный цвет, то есть 2 пикселя занимают 1 байт. 448000/2=224 000 байт = 1 792 000 бит = 218,75 кб
Ответ дал: Гость
const n = 20; var a : array [1..n] of integer; pos, sum, znak : integer; begin write('массив: '); randomize; for pos : = 1 to n do begin a[pos] : = random(101) - 50; write(a[pos]: 4); end; writeln; for pos : = 1 to n div 2 do sum : = sum + a[pos] -a[n div 2 + pos]; writeln('разность между суммой 1-й половины и 2-й = ', sum); end.
Популярные вопросы