Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
var n, i, k, a: integer;
begin readln(n); k : = 0; for i : = 1 to n do begin readln(a); if trunc(sqrt(a)) * trunc(sqrt(a)) = a then k : = k + 1; end; writeln(k); end.
1 кбайт
1000 байт
1024 бит
1 байт
1 бит
нам дано, что на борту есть кок и капитан, т.е:
1) 15 голов - 1 кок - 1 капитан = 15-2= 13 - это количество матросов и котов вместе
дальше нам сказано, что всего лап и ног - 41:
2) от общего количества 41 - 1 нога капитана (т.к. было сказано, что капитан одноногий) - 2 ноги кока = 41 - 3 = 38 ног матросов и лап котов.
а дальше я сделала методом подбора, и у меня получилось 6 котов, 7 матросов, ну и кок с капитаном.
проверка:
6*4 + 7*2 +1 + 2 = 41 ног и лап
6 + 7 + 1 + 1 = 15 голов
var a,b,c: integer;
begin
clrscr;
readln(a,b,c);
if a = b then writeln(c);
if b = c then writeln(a);
if a = c then writeln(b);
readkey;
end.
Популярные вопросы