Program Alexander1;
uses crt;
const n = 10;
var
A:array [1..n] of real;
i,k:integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
Randomize;
{ввод чисел}
for i:=1 to n do
begin
A[i]:= Random(101)-50;
write(A[i]:7:2,' ');
end;
writeln('Числа, которые больше своего правого соседа: ');
k:=0;
for i:=1 to n-1 do
begin
if A[i]>A[i+1] then
begin
k:=k+1;
writeln(i,'-е число: ',A[i],'>',A[i+1]);
end;
end;
writeln('Всего ',k,' таких чисел');
end.
#include <iostream>using namespace std;
int main(){ setlocale(LC_ALL,"rus"); int a,b; cout<<"a= "; cin>>a; cout<<"b= "; cin>>b; if (a<b && b % a ==0) cout<<a<<" является делителем "<<b; else if (b<a && a % b ==0) cout<<b<<" является делителем "<<a; else cout<<"меньшее число не является делителем большего"; return 0;
4. С:\учёба\математика\ГИА.
С:\учёба\математика
С:\учёба\математика\каталог1
С:\учёба\математика\каталог1\каталог2
подходит:
С:\учёба\математика\2013\Расписание
Ответ: 4
5.
1) afeget.doc
2) ufegelian.dim
3) zfegininal.disk
uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
Д<em>ля кодирования одного из 16 символов требуется log(2)16 = 4 бита. Объем информации в тексте = 4*60*60*105 бит = 4*60*60*105 / (8*1024) Кбайт ≈ 184,6 Кбайт </em>