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>
//Вы принимаете введенный символ в char, а в switch пытаетесь использовать двузначные числа (10, 11, 12). Даже если вы ввели "11", то в Char приходит только первый введенный символ, т.е "1", и выводится соответственно "январь". Чтобы использовать двузначные числа, нужно использовать переменную с другим типом данных, например int или string.
//Также я ввел поддержку русского языка в консоль, у меня во всяком случае консоль по умолчанию не поддерживает русские символы
//Еще я убрал переменную С, так как не понял, зачем вы ее вообще ввели (она нигде не используется)
#include <iostream>
#include <locale>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
string b;
int a;
cin » a;
switch (a)
{
case 1: b = "январь"; break;
case 2: b = "февраль"; break;
case 3: b = "март"; break;
case 4: b = "апрель"; break;
case 5: b = "май"; break;
case 6: b = "июнь"; break;
case 7: b = "июль"; break;
case 8: b = "август"; break;
case 9: b = "сентябрь"; break;
case 10: b = "октябрь"; break;
case 11: b = "ноябрь"; break;
case 12: b = "декабрь"; break;
default: b = "Ошибка!"; break;
}
cout « endl « b « endl;
return 0;
}
Программа может выглядеть так:
uses crt;
const m=1000;
type Mas=array [1..m] of integer;
Var A: Mas;
i, Max, n: integer;
Begin
ClrScr;
Write('n = ');
ReadLn(n);
for i:=1 to n do
begin
Write('A[',i, ']=');
ReadLn(A[i]);
end;
Max:=A[1];
for i:=2 to n do
if A[i]>Max then Max:=A[i];
Writeln;
WriteLn ('Max = ', Max);
ReadLn;
end.
A) sqrt(x1*x1+x2*x2)
b) 1/(1+1/(2+1/(2+3/5)))
c) (-b+sqrt(b*b-4*a*c))/(2*a)
d) sqrt(1-sqr(sin(x)))
e) (-b+1/a)/(2/c)
f) (sqrt(x+1)+sqrt(x-1))/(2*sqrt(x))
g) m*g*cos(a*a)
h) 1/(1+(a+b)/2)
i) (a*b+b*c)/(a*d)