Неееееееееееееееееееееееееееееееееееезнаааааааааааааааааююююююююю
Var a: array [1..10] of integer;
i:integer;
begin
for i:=1 to 10 do read(a[i]);
for i:=1 to 10 do if a[i] mod 2<>0 then write(a[i],' ');
end.
Решение задачи показано в таблице (файл прилагается). <span> В
этой таблице в каждой ячейке может быть только одно имя, а в каждом столбце и в
каждой строке имена не должны повторяться. Исходные данные представлены в
первой таблице. Заполнение пустых ячеек проще всего начать с ячейки (2,июль): в
ней не могут быть имена Коля, Ваня и Сережа, значит, может быть только Петя.
Рассуждая аналогичным образом, заполняем таблицу в порядке, указанном во второй
таблице.
Ответ: май</span>
2^x бит = 2 байт
2^x=2*2^3
2^x=2^4
x=4
Проверка:
2^4=16 бит
2 байт * 8= 16 бит.
1. ((x-1)/sqr(y)-1/x)/(1/y+1/(x+1))
2.
program Schet;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if (x+100>0) then begin
y:=(sqr(x)+4)/sqrt(x+100);
writeln('Y = ',y) end
else writeln('При данном значении X выражение не может быть рассчитано!')
end.
3.
program Func;
var x,y:real;
begin
write('Введите значение X: ');
readln(x);
if x<=0 then y:=4*x else
y:=(sqr(x)+1)/2;
writeln('Y = ',y)
end.
4.
program interval;
var s,x:real;
begin
x:=0;
repeat
s:=2*x*x+1;
writeln('при X = ',x:5:2,' S = ',s:6:2);
x:=x+0.5
until x>10
end.
Все программы написаны на языке ABC Pascal и проверены на функциональность