Мне бы такие тесты
но нет мы на инфе в кс играли
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)площадь на каком языке если паскаль то это не ко мне
Запишим коды каждой буквы:А = 1000Б = 1001В = 1010Г = 1011 Запишем последовательность БГАВ = 1001101110001010 Чтобы перевести в восьмеричный код из двоичного, следует начиная с конца разбить код на тройки и каждую уже перевести. Получится:001 001 101 110 001 010 (впереди числа, если не хватаем чисел, можно дописывать 0. Они не дают результата, просто удобны для записи). Переводим кажое число путем развернутой )формы записи и счета: <span>Ответ: 115612</span>
Program zad1;
Var
x,B1,B2,B3,B4,B5,y:real;
begin
writeln('Введите X');
readln(x);
B1:=x+1;
B2:= 1/B1;
B3:= B2-1;
B4:= B2+1;
B5:= B3/B4;
y:= B5-1;
writeln('Ответ: ',y:6:2);
end.
Program gt;
var a:array[1..1000]of integer;
n,r,p,s,i:integer;
begin
read(N);
p:=1;s:=0;
for i:=1 to n do
begin
read(a[i]);
if(i mod 2=1)then p:=p*a[i] else s:=s+a[i];
end;
r:=p-s;
writeln(r);
end.