Первый рисунок
1-чёрный, 0-белый.
11110111
11110001
10000101
00000001
10101111
<span>
</span>Второй
1001001
0101010
0011100
0101010
1001001
Третий
11111
10101
11111
00100
00100
Const a=1.2; b=2; h=0.1;
var x,y:real; n,i:integer;
begin
x:=a-h;
n:=round((b-a)/h)+1;
writeln(' № x y');
for i:=1 to n do
begin
x:=x+h;
y:=sqrt((x-1)/sin(1/x));
writeln(i:2,' ',x:3:1,' ',y:8:4);
end;
end.
Результат:
№ x y
1 1.2 0.5198
2 1.3 0.6567
3 1.4 0.7814
4 1.5 0.8992
5 1.6 1.0127
6 1.7 1.1232
7 1.8 1.2316
8 1.9 1.3385
9 2.0 1.4442
Var
a: array[1..10] of integer;
i, max: integer;
begin
for i := 1 to 10 do
begin
read(a[i]);
if (i = 1) or (a[i] > max) then
max := a[i];
end;
writeln('Max value = ', max)
end.
Var a,k:integer;
begin
k:=0;
readln(a);
while a<>0 do
begin
if (abs(a) mod 5=0)or(abs(a) mod 9=0)
then k:=k+1;
readln(a);
end;
writeln('k = ',k);
end.
Пример:
15
91
90
0
k = 2
Не сидите много за компьютером, это опасно. компьютер плохо сказывается на здоровье человека. в частности на осанке и зрении. что бы с тобой было все хорошо нужно сидеть ровно перед экраном и не сутулиться. делать перерывы и долго не сидеть за компьютером. компьютер полезная вещь, но злоупотреблять не стоит