0) Начало
1) Ввод массива B(n) //n - количество элементов массива
2) Объявляем пустой массив C(n)
3) k = 1
4) Цикл по i от 1 до n
4.1) Если условие А истинно, то
4.1.1) C(k) = i // Выносим номер элемента в новый массив
4.1.2) k = k+1 // Переходим к следующему элементу в массиве С.
4.1.3) Конец Если
4.2) Конец Цикла
5) Вывод сформированного массива C(k)
6) Конец
var x:array[1..8] of integer := (-10, -9, -8, -7, -6, -5, -4, -3); i,a:integer; y:real;begin writeln('a='); readln(a); for i:=1 to 8 do begin y:=7*sqr(x[i])-14/x[i]+a; writeln('x[',i,']= ',y); end;end.
Мне бы такие тесты
но нет мы на инфе в кс играли
1)Информация<span> - это любые сведения, принимаемые и передаваемые, </span><span>сохраняемые различными источниками.</span>
2)8 бит
3)а)1024
б)3*1024=3072
в)1024
г)2*1024=2048
4)вроде условие это if elif else
5)целый integer
символьный char
вецественный real
логический bool
6)обьявление и присваивание переменным занчений
7)Y не присвоено значение и точеки с запятой не хватает после обьявления real
если х больше 0 то прибавляет y если наоборот отнимает y
8)площадь на каком языке если паскаль то это не ко мне
x div y - выводит целую часть получившегося числа,то есть делит x на y и выводит целую часть этого числа.
1) 44 div 8
2) 44/8=5.5
Ответ: 5.
<span>А. for i:=-5 to 5 do тело цикла; - 11 раз
В. for i:=6 to 2 do тело цикла; - 0 или 1 раз
С.for i:= 3to 3 do тло цикла ; - 1 раз
D. for i:=3 downto 4 do тело цикла - 1 или 0 раз
E. for i := 3 downto 1 do - 3 раза</span>