Pascal
var
a,b : integer;
r : boolean;
begin
readln (a);
r := true;
b := a mod 10;
While a > 0 do
begin
if a mod 10 <> b then
begin
r := false;
a := 0;
end;
a := a div 10;
end;
if r then
writeln ('Все цифры числа одинаковы')
else
writeln ('Цифры числа различны');<span>
end.</span>
Замечание: обработка возможных ошибок исходных данных отсутствует.
#include <iostream>
#include <fstream>
using namespace std;
int main()
{
ifstream in;
ofstream out;
int a = 5, b = 15, c;
int k[b-a+1];
for (int i=0; i<b-a+1; i++) k[i] = 0;
in.open("f.txt");
while(in >> c)
{
k[c-a]++;
}
for (int i=0; i<b-a+1; i++)
cout << i+a << " - " << k[i] << '\n';
in.close();
return 0;
}
Пример:
Содержимое файла f.txt:
7 10 15
8 7 7 10
Результат:
5 - 0
6 - 0
7 - 3
8 - 1
9 - 0
10 - 2
11 - 0
12 - 0
13 - 0
14 - 0
15 - 1
(TAN(b)+EXP(-(x+3)))*SQR(23)*SIN(a)
Так, как в условии записано, под корнем только 23. Если там и синус, то закрыывющую скобку после 23 перенести в самый конец.
Var k:integer;
function sr(n:integer):real;
var i,s:integer;
begin
s:=0;
for i:=1 to n do s:=s+i*i;
sr:=s/n;
end;
begin
write('k='); readln(k);
writeln('Среднее арифметическое = ', sr(k));
end.
Пример:
k=5
Среднее арифметическое = 11