Задача 2.1

#include <iostream>
#include <cmath>
using namespace std;

int main()
{
int input;
cin >> input;

int size1 = abs(input / 100 - input % 100 / 10);
int size2 = abs(input % 100 / 10 - input % 10);

if (size1 == size2){
cout << "YES" << endl;
}else{
cout << "NO" << endl;
}

return 0;
}

0 0

2 года назад

Составить программу в PascalABC, которая запрашивает ввод буквы латинского алфавита, а потом для данной буквы напечатает справа

Женя Орлов [32]

// PascalABC.NET 3.0, сборка 1073
const
s='QWERTYUIOPASDFGHJKLZXCVBNMQqwertyuiopasdfghjklzxcvbnmq';
var
c:char;
p:integer;
begin
repeat
    Write('Введите латинскую букву, иной символ завершит работу: ');
    Readln(c);
    p:=Pos(c,s);
    if p>0 then Writeln('Рядом буква "',s[p+1],'"')
until p=0
end.

<u><em>Тестовое решение:</em></u>
Введите латинскую букву, иной символ завершит работу: y
Рядом буква "u"
Введите латинскую букву, иной символ завершит работу: H
Рядом буква "J"
Введите латинскую букву, иной символ завершит работу: m
Рядом буква "q"
Введите латинскую букву, иной символ завершит работу: P
Рядом буква "A"
Введите латинскую букву, иной символ завершит работу: 5

0 0

4 года назад