a = int(input())
s = 1
flag = True
while s < a:
ch = s
count = ch
while ch > 9:
ch = sum(map(int,str(ch)))
count += ch
if count == a:
print(s)
flag = False
break
s += 1
if flag:
print(-1)
F1 Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае не изменять его. Вывести полученное число.
If2 Дано целое число. Если оно является положительным, то прибавить к нему 1; в противном случае вычесть из него 2. Вывести полученное число.
If3 Дано целое число. Если оно является положительным, то прибавить к нему 1; если отрицательным, то вычесть из него 2; если нулевым, то заменить его на 10. Вывести полученное число.If4°Даны три целых числа. Найти количество положительных чисел в исходном наборе.
If5 Даны три целых числа. Найти количество положительных и количество отрицательных чисел в исходном наборе.
If6° Даны два числа. Вывести большее из них.
If7 Даны два числа. Вывести порядковый номер меньшего из них.
If8° Даны два числа. Вывести вначале большее, а затем меньшее из них.
If9 Даны две переменные вещественного типа: A, B. Перераспределить значения данных переменных так, чтобы в A оказалось меньшее из значений, а в B — большее. Вывести новые значения переменных A и B.
If10 Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной сумму этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
If11 Даны две переменные целого типа: A и B. Если их значения не равны, то присвоить каждой переменной большее из этих значений, а если равны, то присвоить переменным нулевые значения. Вывести новые значения переменных A и B.
If12° Даны три числа. Найти наименьшее из них.
If13 Даны три числа. Найти среднее из них (то есть число, расположенное между наименьшим и наибольшим).Небольшое пояснение
If14 Даны три числа. Вывести вначале наименьшее, а затем наибольшее из данных чисел.If15 Даны три числа. Найти сумму двух наибольших из них
Program summa;
var a,b,s:double;
begin
write('Введи первое число: ');
readln(a);
write('Введи второе число: ');
readln(b);
s:=a+b;
writeln(round(s));
end.
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
procedure Zamena(var Stroka:string);
begin
var cin:='abcdefghijklmnopqrstuvwxyz'.ToCharArray;
var n:=cin.Length;
var cout:=cin[1:n]+cin[:1];
for var i:=1 to Stroka.Length do begin
var p:=cin.IndexOf(Stroka[i]);
if p>=0 then Stroka[i]:=cout[p]
end
end;
begin
var aa:='a bc 83xz';
aa.Println;
Zamena(aa);
aa.Println
end.
<u>Пример</u>
a bc 83xz
b cd 83ya
Var
i,x:integer;
sr:real;
begin
sr:=0;
for i:=1 to 4 do
begin
write('Оценка за задачу №',i,' ');
readln(x);
sr:=sr+x;
end;
sr:=sr/4;
write('Средняя оценка ',Round(sr));
End.<span>
</span>