Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Лист защищен без пароля, чтобы случайно не повредить формулы.
Program znanija3;
var i, number:integer;
begin
number:=0;
while i <> 10 do begin
Inc(number);
if (number mod 10) = 7 then begin
writeln(number);
Inc(i);
end;
end;
end.
P.S. Inc(number) = number:= number+1
int main(int argc, char* argv[])
{
char s[256] = {0};
char prevChar = {0};
std::cin >> s;
int len = strlen(s);
prevChar = s[0];
int count = 1;
for (int i = 1; i < len+1; i++)
{
if (s[i] == prevChar) {
count++;
} else {
printf("%d %c\n", count, prevChar);
count = 1;
prevChar = s[i];
}
}
return 0;
}