Program n1;
var a: integer;
begin
readln(a);
if (a mod 10)+(a div 100)+(a mod 100 div 10)>10 then write('верно') else write('неверно');
end.
#include <iostream>
<span>#include <ctime>
</span><span>using namespace std;
</span>int main() {
<span> int n,m;
</span><span> FILE *fpt;
</span><span> cout<<"n = "; cin>>n;
</span><span> fpt=fopen("input.dat","wb");
</span><span> srand(time(NULL));
</span><span>// запись файла
</span><span> for (int i=0; i<n; i++) {
</span><span> m=rand()%8000-3000;
</span><span> cout<<m<<" ";
</span><span> fwrite(&m,sizeof(int),1,fpt);
</span><span> }
</span><span> cout<<endl;
</span><span> fclose(fpt);
</span><span> fpt=fopen("input.dat","rb+");
</span><span> int indf=0,indl=0,vf=0,vl=0,k=0;
</span><span>// чтение файла
</span><span> while (fread(&m,sizeof(int),1,fpt)!=0) {
</span><span> k++;
</span><span> if (!(m%2==0) && (indf==0)) { indf=k-1; vf=m; }
</span><span> if ((!m==0) && (m%2==0)) { indl=k-1; vl=m; }
</span><span> }
</span><span> cout<<"first odd = "<<vf<<" index = "<<indf<<endl;
</span><span> cout<<"last even = "<<vl<<" index = "<<indl<<endl;
</span><span>// обмен первого нечетного и последнего четного
</span><span> if (indf>0) {
</span><span> fseek(fpt,sizeof(int)*indf,SEEK_SET);
</span><span> fwrite(&vl,sizeof(int),1,fpt);
</span><span> }
</span><span> if (indl>0) {
</span><span> fseek(fpt,sizeof(int)*indl,SEEK_SET);
</span><span> fwrite(&vf,sizeof(int),1,fpt);
</span><span> }
</span><span> fclose(fpt);
</span><span> system("pause");
</span><span> return 0;
</span><span>}
</span>n = 6
<span>4368 2733 1112 2620 1941 753
</span><span>first odd = 2733 index = 1
</span><span>last even = 2620 index = 3
</span>
Передача голоса по каналам Интернет (протокол VOIP - Voice Over IP), которую еще называют IP-телефонией, не требует для осуществления никаких дополнительных затрат, потому что сеть Интернет и так имеется, а все необходимое оборудование и программное обеспечение установлено у абонентов. Поэтому IP-телефония по сути бесплатна, если у абонентов безлимитный тариф на подключение Интернет. Обычная международная телефонная связь подразумевает оплату телефонным компаниям за услугу предоставления телефонного соединения и использование каналов связи.
Переменная — это именованная область памяти для хранения данных, которые могут изменяться в процессе исполнения программы.Переменная характеризуется:Именем («обозначением ячейки памяти»)Значением (данными, содержащимися в переменной в конкретный момент времени)Типом (определяющим: а) какие значения может принимать переменная; б) какие операции можно производить с этими значениями; в) как данные представлены в памяти компьютера)<span>Имена и типы переменных указываются в разделе описаний и не могут изменяться в процессе выполнения программы.</span>