#include<iostream.h>
#include<conio.h>
int s[100],i,n,k,t[100],j;
main(){ randomize();
cin>>n;
for(i=0;i<n;i++){
s[i]=random(100000);
cout<<s[i]<<" ";}
cout<<endl;
j=-1;
for(i=0;i<n;i++) {
k=s[i]/10;
if(k%10==0){ j++; t[j]=s[i];}}
if(j==-1)
cout<<"NET NI ODNOGO CISLA KOTORII OTVECEAET TREBOVANIIAM"<<endl;
else for(i=0;i<=j;i++)
cout<<" "<<t[i]<<endl;
getch();}
Program massivy;
var array1: array [1..10] of integer;
i, b:integer;
begin
for i:=1 to 10 do
array1[i]:=random(-10, 10);
for i:=1 to 4 do begin
for b:=1 to 4 do
if array1[b] > array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=5 to 9 do begin
for b:=5 to 9 do
if array1[b] < array1[b+1] then
swap(array1[b], array1[b+1]);
end;
for i:=1 to 10 do
writeln(array1[i]);
end.
Var n,k,sum,i:integer;
begin
readln (n);
if (n<10)and(n>-10) then
for i:=1 to 10 do begin
if n mod i=0 then
sum:=sum+i;
k:=k+1;
end;
writeln(sum, ' ', k);
end.
Носителем информации в цифровой камере служат особые карты памяти - точнее, “флэш-памяти”, данные из флэш-памяти не исчезают при отключении питания, они могут быть стерты или записаны только специальным электрическим импульсом.
1)
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
Ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот
