var s,a,b,c:char;
i:integer;
begin
read(s);
a:=succ(s);
b:=succ(a);
c:=succ(b);
write(a,' ');
write(b,' ');
write(c,' ');
end.
const ans:array [boolean] of string = ('false','true');
var a,b:integer;
begin
read(a,b);
writeln(ans[(a mod 3 = 0) and (b mod 3 = 0)]);
end.
var
n, m, p: int64;
begin
write('Enter number: ');
readln(n);
m := n;
p := 0;
while m > 0 do begin
p := p * 10 + m mod 10;
m := m div 10;
end;
while n = p do begin
writeln('Palindrome');
break;
end;
while n<>p do begin
writeln('No palindrome');
break;
end;
end.
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
cout << "Введите количество нечётных чисел (до 2000 включительно) ";
int count;
int sum = 0;
cin >> count;
if(count >= 1 && count <= 2000)
{
for(int i = 1; i<=count; i++)
{
if(i%2!=0)
{
if(i!=count) // проверка на то, ставить ли ещё 1 плюс или будет равно
{
cout << i << " + ";
sum=sum+i;
}
else
{
cout << i;
sum=sum+i;
}
}
else
{
if(i!=count)
{
cout << i+1 << " + ";
i++;
sum=sum+i;
}
else
{
cout << i+1;
i++;
sum=sum+i;
}
}
}
}
cout << " = " <<sum;
system("pause");
return 0;
}
Аналогичная программа:
#include <iostream>
#include <cstdlib>
using namespace std;
int main()
{
setlocale(LC_ALL,"russian");
cout << "Введите последнее нечётное число";
int num;
int a;
cin >> num;
num=num+1;
num=num/2;
num=num*num;
cout << "Итого: " << num;
system("pause");
return 0;
}