Белочки и орешки - 2
n белочек нашли k орешков и решили разделить их поровну. определите, сколько орешков останется после того, как все белочки возьмут себе равное количество орешков.
формат входных данных
на вход дается два целых положительных числа n и k, каждое из которых не превышает 1.
формат выходных данных
выведите одно целое число - ответ на .
sample input:
3
14
sample output:
2

c++​

ответ:

#include

using namespace std;

int main() {

    setlocale(lc_all, "rus");

    int n;

    int k;

    cout < < "введите n и k: " < < endl;

    cin > > n > > k;

    cout < < "ответ: " < < k % n < < endl

}

как-то так

var

a: [1..100] array of integer;

i,n,p: integer;

begin

readln(n);

for i: =1 to n do

begin

readln(a[i]);

p: =2;

while (p*p< =a[i]) do

begin

if p*p=a[i] then writeln (a[i],' полный квадрат')

p: =p+1;

end;

end;

end.

поскольку http: \\ftp. не бывает, то ftp: \\schools.ru\program.exe