Var
x,y:real;
begin
x:=-1;
while x<=1 do begin
Writeln('x=',x:4:1,', y=',x*x*x:9:6);
x:=x+0.1
end
end.
<em><u>Результат выполнения программы:</u></em>
x=-1.0, y=-1.000000
x=-0.9, y=-0.729000
x=-0.8, y=-0.512000
x=-0.7, y=-0.343000
x=-0.6, y=-0.216000
x=-0.5, y=-0.125000
x=-0.4, y=-0.064000
x=-0.3, y=-0.027000
x=-0.2, y=-0.008000
x=-0.1, y=-0.001000
x= 0.0, y= 0.000000
x= 0.1, y= 0.001000
x= 0.2, y= 0.008000
x= 0.3, y= 0.027000
x= 0.4, y= 0.064000
x= 0.5, y= 0.125000
x= 0.6, y= 0.216000
x= 0.7, y= 0.343000
x= 0.8, y= 0.512000
x= 0.9, y= 0.729000
x= 1.0, y= 1.000000
var
a:array[1..100] of integer;
i, n:integer;
begin
randomize;
write('Введите количество элементов '); readln(n);
writeln('Исходный массив: ');
for i := 1 to n do
begin
a[i] := random(21) - 10;
write(a[i], ' ');
end;
writeln;
writeln('Вывод массива в соответствии с условием: ');
for i := 1 to n do
begin
if i mod 4 = 0 then
write('нет ')
else
if i mod 2 = 0 then
write('да ')
else
write(a[i], ' ');
end;
end.
// пишу на плюсах, думаю поймёте
int k;
for(int i=0;i<30;i++){
int x;
cin >> x;
if(x%3==0 && x%10==1)
k++:
}
cout << k;
1)подставим в выражение х=1 получим
(1>=3)&(1<4)=0&1=0 (0-высказывание ложно, 1-высказывание - истина)
2)подставим в выражение х=2 получим
(2>=3)&(2<4)=0&1=0
3)подставим в выражение х=3 получим
(3>=3)&(3<4)=1&1=1
4)подставим в выражение х=4 получим
(4>=3)&(4<4)=1&0=0
Итак, имеем ответ при Х=3 высказывание истина, при остальных значениях - ложно.
Var
ar:array[1..10] of integer;
k,i,n:integer;
begin
readln(k);
for i:=1 to 10 do
begin;
readln(ar[i]);
if ar[i]>k then n:=n+1;
end;
writeln('Array:');
for i:=1 to 10 do write(ar[i]:4);
writeln;
write('Res:',n);
end.<span> </span>