Дано целое число n. выведите следующее за ним четное число. входные данные вводится целое положительное число, не превышающее 1000. выходные данные выведите ответ на . примеры входные данные 7 выходные данные 8 входные данные 8 выходные данные 10
function Summa(a,b:integer):string; var a1,b1:integer; begin //находим сумму первого числа a1:=(a div 1000)+((a div 100)mod 10)+((a mod 100)div 10)+(a mod 10);
//находим сумму второго числа b1:=(b div 1000)+((b div 100)mod 10)+((b mod 100)div 10)+(b mod 10);
//выясняем что больше if a1>b1 then Result:='Сумма цифр левого числа больше. Оно равно: '+IntToStr(a1) else Result:='Сумма цифр правого числа больше. Оно равно: '+IntToStr(b1); end;
procedure TForm1.Button1Click(Sender: TObject); begin //Выполнение и вывод результата функции через нажатие кнопки Label1.Caption:=Summa(StrToInt(Edit1.Text),StrToInt(Edit2.Text)); end;
uses crt; var s:string; c:char; m:set of char; n,i,k,p:byte; begin writeln('Введите текст из строчных латинских букв, окончаание ввода Enter'); s:=''; repeat c:=readkey; if c in ['a'..'z'] then begin write(c); s:=s+c; end; if c=#13 then writeln until c=#13; n:=length(s); m:=[]; for c:='a' to 'z' do begin k:=0; for i:=1 to n do if s[i]=c then k:=k+1; if k>1 then m:=m+[c]; end; if m=[] then write('Нет букв, встречающихся более 1 раза') else for c:='a' to 'z' do if c in m then write(c) end.
using namespace std;
int main()
{
unsigned n = 0;
cin >> n;
if (n > 0 && n < 1000) {
cout << (n | 1) + 1 << endl;
} else {
cout << "Error!" << endl;
}
return 0;
}