#include <iostream>
using namespace std;
int main()
{
int n, k;
<span> cout << "Введите число разрезов ", cin >> n, cout << "\n";</span>
k = (n*(n+1))/2 + 1;
cout << "Общее число кусков пирога равно " << k;
return 0;
}
Begin
var seq := Range(1000, 9999);
var s: string;
foreach var x in seq do
begin
s := x.ToString;
var count := 0;
for var i := 1 to 3 do
for var j := i + 1 to 4 do
if s[i] = s[j] then count += 1;
if count = 0 then Print(s);
end;
end.
<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
function Min(a,b,c,d:integer):=Min(Min(a,b),Min(c,d));
begin
Writeln(Min(3,8,-2,0)) // пример вызова
end.
В общем я написал программу которая из введённых символов получает их порядковые номера это как раз таблица ASCII у меня стоит там настройка Unicode значит и символы кодировались и декодировались под Unicode, на первом скрине твоя днюха на втором <span>UGANDA
PS --------------------------------------------------------------------------------------------
Если интересно то в PascalABC.NET за то чтобы узнать номер символа отвечает ord(), а чтобы декодировать chr(). Например </span>ord('L')= 76 а chr(76)=L
При чтении массива вложенный цикл, а переменная одна и та же j ,
for j:=1 to 4 do
begin
for j:=1 to 4 do
замените в первом цикле
for i:=1 to 4 do