var n: integer; begin cls; for n: =1 to 10 do begin write('n=',sqr(n)+5,' '); end; end.
решить на паскале?
Ответ дал: Гость
const
n=10;
var
a: array[1..n] of integer;
i,x,k,j,s: integer;
begin
randomize:
for i: =1 to n do a[i]: =random(255); {формируем случайный массив}
for i: =1 to n do write(a[i],' '); {выводим этот массив его на экран}
writeln('x='); read(x); {вводим x, в программе}
for i: =1 to n do if x=a[i] {если х=a[i] тогда}
then for j: =i to n do {начинаем новый цикл с i до n}
s: =s+a[j]; {вычисляем сумму}
writeln(s);
end;
Ответ дал: Гость
восемь бит - как раз 256 ячеек
Ответ дал: Гость
автоматическое устройство, называемое термостатом, воспринимает информацию о температуре помещения.собрание дома из кубиков,светит солнце, идет дождь, мороз - растительный мир получив эту информацию реагирует на нее: распускаются листья, расцветают цветы, листья.
Популярные вопросы