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)
Uses
GraphABC;
var
i, k: integer;
arr: array [1..6] of color;
begin
writeln('Сколько кирпичиков?');
readln(k);
arr[1] := clPink; arr[2] := clRed; arr[3] := clGreen;
arr[4] := clBlue; arr[5] := clYellow; arr[6] := clOrange;
for i := 0 to k - 1 do
begin
SetBrushColor(arr[random(6) + 1]);
FillRectangle((i mod 16) * 40, (i div 16) * 20, (i mod 16) * 40 + 39, (i div 16) * 20 + 19);
sleep(20);
end;
end.
Стена из кирпичиков - норм?)
Сперва разберёмся, какие значения может принимать каждая переменная:
i, k: integer - целые числа
x, y: real - дробные и целые числа
n: char - один символ
z: Vremia_God - Win, Spr, Sum или Otm.
Опираясь на это, получаем следующий ответ:
1-f,d
2-a,e
3-a,e
4-a,c,e
5-b
6-a,c,e
Var x,y:real; n:integer;
function f(x:real;n:integer):real;
var i,st:integer;
begin
st:=1;
for i:=1 to n do st:=st*2;
f:=sin(x)*st;
end;
begin
writeln('x, n:');
readln(x,n);
y:=f(x,n);
writeln('x = ',x,' y = ',y);
end.
Пример:
x, n:
2 5
x = 2 y = 29.0975176584218
Var
a,b: integer;
begin
read(a);
b:=a mod 2;
a:= (a-b) div 2;
write ('Остаток от деления: ',b,' Целая часть: ',a);
end.