#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;
}
Как задать значение переменной которое введено в Edit?
вообщем чтобы из Edit значение поподало в переменную
к примеру:
...
var
kurs: real;
Edit1.Text:='КАКОЕТО_ЧИСЛО'
...
kurs:='РАВЕН_ЭТОМУ_КАКОМУТО_ЧИСЛУ'
Объяснение:
DelphiВыделить код
1
2
3
4
5
6
procedure TForm1.Edit1Change(Sender: TObject);
var
Kurs:real;
begin
Kurs:=StrToFloat(Edit1.Text);
end;
Добавлено через 24 минуты 0 секунд
или так,
DelphiВыделить код
1
2
3
4
5
6
7
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
Kurs:real;
begin
if not (Key in ['0'..'9','-','+','.',',',#8,#13]) then Key:=#0;
Kurs:=StrToFloat(Edit1.Text);
end;
