var
a,a1,a2:integer;
begin
repeat
writeln (' Введите число');
readln (a);
a1:=a div 10;
a2:=a mod 10;
until (a1+a2=10);
writeln ('Верно ');
end.
Пример на языке с++, дошел только для этого
#include<iostream>
using namespace std;
int min(int a, int b, int c, int d)
{
int min1 = 0;
int min2 = 0;
if (a < b)
{
min1 = a;
}
else
{
min1 = b;
}
if (c < d)
{
min2 = c;
}
else
{
min2 = d;
}
if (min1 < min2)
{
cout << "Наименьшее из чисел: " << min1 << endl;
}
else
{
cout << "Наименьшее из чисел: " << min2 << endl;
}
return 0;
}
int main()
{
setlocale(LC_ALL,"RUSSIAN");
min(10,20,30,40);
return 0;
}
#include <iostream>
#include <string>
bool is_palindrome(const std::string& s) {
std::string r(s);
std::reverse(r.begin(), r.end());
return s == r;
}
int main() {
std::string s1,s2;
setlocale(LC_ALL, "Russian");
std::cout << "Введите число 1: ";
std::getline(std::cin, s1);
std::cout << "Введите число 2: ";
std::getline(std::cin, s2);
if (is_palindrome(s1)|| is_palindrome(s2))
std::cout << "Одно из введенных чисел является палиндромом " << std::endl;
else
std::cout << "Ни одно из введенных чисел не является палиндромом " << std::endl;
return 0;
}
function sum (n : integer) : integer;
begin
sum := 0;
while n > 0 do
begin
sum := sum + n mod 10;
n := n div 10;
end;
end;
var
a : integer;
begin
repeat
writeln ('a = ');
read (a);
until sum (a) = 10;
writeln ('OK');
end.