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.
Допустим, в языке есть встроенная функция
Min(a,b) которая определяет мин из двух значений. Тогда алгоритм выглядит так
х=Мin(a,b);
x=Min(x,c);
А если нужно найти мин из N чисел, которые запрятаны в массив А(n), то так
x=999999999999999999999; // какое-то ОЧЕНЬ большое число
Для ц=1 по N цикл
x = Min(x,A(ц));
КонецЦикла;
А что, если такой функции в языке нет, спросишь ты, тогда её нужно написать самому, например, так
Функция Min(a,b)
Если a<b Тогда
Возврат(а);
Иначе
Возврат(b);
КонецЕсли;
КонецФункции
Вот и всЁ! Учитесь мыслить алгоритмически структурно, разбивая сложный алгоритм на ряд простых и понятных, и всё будет очень просто.
Успехов!
Відповідь:
#include <iostream>
using namespace std;
int main(){
setlocale(LC_ALL , "Rus");
int sum = 0;
for(int i = 1; i <= 90; i++){
if(i % 2 != 0){
sum += i;
}
}
cout << "Сумма всех нечетных чисел = " << sum << endl;
return 0;
}