Программа на языке Паскаль
program pr;
s: string;
begin
readln (s);
if length(s) mod 2=0 then writeln ('Четное') else writeln('Не четное');
readln;
end.
Постарался учесть все возможные числа
Python:
a = int(input())
a = str(a)
a1 = a
c = 0
e = 0
br = 0
for b in range(len(a)):
c += int(a[b])
for b in range(len(a)):
if a[b] == '9':
e += 1
if e == len(a):
print(a[:len(a) - 1] + '6')
else:
for b in range(len(a)):
if br == 'break':
break
for d in range(9, -1, -1):
if br == 'break':
break
a1 = a[0:b] + str(d) + a[b + 1:]
if int(a1) > int(a) and int(a1) % 3 == 0:
print(a1)
br = 'break'
знання
Пошук...
1Отличница2
20.05.2018
Інформатика
5 - 9 класи
відповідь дана * перевірена експертом
C++
Вирішити в цілих числах рівняння ax + b=0
Вхідні дані: вводяться 2 цілих числа А і б.
Вихідні дані: необхідно вивести всі рішення, якщо їх число звичайно, "ні"(без лапок), якщо рішень немає , і "inf файл"(без лапок), якщо рішень нескінченно багато.
Приклад, вхідні дані: 6; -2
Вихідні : ні
1
ДИВИТИСЯ ВІДПОВІДЬ
Увійди щоб додати коментар
Відповідь, перевірена експертом
3,0/5
9
Учасник Знань
# включити <iostream>
використання STD простору імен;
int main() {
int a,b,x;
cin >> a >> b;
if (b==0)
Якщо (a= = 0)
cout << "INF" << "\n";
else
cout < < " ні " < < "\n";
не інакше як
, якщо (a!=0)
якщо (-b % a == 0)
cout << -b/a << "\n";
else
cout < < " ні " < < "\n";
else
cout < < " ні " < < "\n";
повертає 0;
}
Program xxx;
s : string;
a : integer;
Begin
writeln('Введите строку символов:'
readln (s);
a:= length(s);
if a mod 2= 0 then writeln ('Четное') else writeln('Не четное');
readln;
end.