1.
Var S : String;
i : Byte;
Begin
Readln(S);
For i:=Length(S) downto 1 do Write(S[i]);
Writeln;
end.
2.
Function StRevers(St : String) : String;
Begin
If Length(St)>1 then StRevers:=St[Length(St)]+StRevers(Copy(St,2,Length(St)-2))+St[1]
else StRevers:=St;
end;
Var S : String;
Begin
Readln(S);
Writeln(StRevers(S));
end.
Наименьшее такое число равно 105 = 7·15, наибольшее — 994 = 7·142.
Получаем арифметическую прогрессию 105, 112, 119, …, 994. Разность прогрессии равна 7, а количество членов
(994−105):7 + 1 = 142−15+1 = 128.
<span>ОТВЕТ: 128.</span>
Var i,s,n: Integer;
begin
readln(n);
for i := 1 to n do begin
s := s + i;
end;
writeln(s);
end.
Program n1;
var a,b: integer;
begin
readln(a,b);
writeln(a*b);
end.
Ответ:
public static bool num(int a)
{
return a > 0 && (a & (a - 1)) == 0;
}
// вариант функции с циклом
public static bool num(int x)
{
while (((x % 2) == 0) && x > 1)
x /= 2;
return x == 1;
}
Объяснение:
Если цикл Обязательное условие , пиши подумаю над циклом