Девочки написали контрольную работу по на 3 4 и 5 .маша сказала ,что она написала лучше оли но не на 5 оля говорила что написала не хуже всех , а катя утверждает что она писала на 4 .как написали девочки контрольную работу по ,если одна девочка в своём утверждении была не права?
204
317
Ответы на вопрос:
Var n,s,x: integer; f,g: file of integer; begin assign(f,'d: \f.txt'); reset(f); while not eof(f) do begin read(f,n); x: =trunc(sqrt(n)); if (x*x=n) and (x mod 2=1) then s: =s+1; end; assign(g,'d: \g.txt'); rewrite(g); write(g,s); reset(f); while not eof(f) do begin read(f,n); write(g,n); end; close(f); close(g); end.
Популярно: Информатика
-
KESALIVE20.12.2021 02:44
-
MashaE63115.07.2022 00:13
-
ivanural19.12.2020 21:43
-
ксю88220.07.2022 09:23
-
никирек20.12.2020 16:32
-
kirillsysoev224.07.2020 07:28
-
lemarakurtazhiv19.11.2021 10:50
-
avrika21.11.2022 12:29
-
yegor65501.11.2022 20:01
-
322452701.06.2023 15:31