Const
n = 10;
var
a: array[1..n] of string;
i: integer;
begin
for i := 1 to n do
begin
a[i] := chr(ord('A') + i - 1);
writeln(a[i]);
end;
end.
Код C/C++:
#include <iostream>
int main()
{
int a, count;
std::cin>>a;
for(int i = 0; i < 100; ++i)
{
if(a > 10)
{
count += a%10;
a/=10;
}
else
{
count+=a;
break;
}
}
std::cin>>"\n">>count;
return 0;
}
пришли фото ,может помогу
var
num:integer;
begin
readln(num);
if (num < 62) then write('Легкая')
else if (num <= 74) and (num >= 62) then write('Средняя')
else if (num >=75) and (num <= 87) then write('Тяжелая')
else write('Сверхтяжелая');