Три свидетеля дали показания, что преступники скрылись с места преступления а) на белой волге; б) на красных жигулях; в) не на белом москвиче. каждый из них в чем-то . на какой машине скрылись преступники?
236
475
Ответы на вопрос:
№1 var n,x: integer; begin x: =1; writeln('введите натуральное число'); read(n); while x< > n do begin write(sqr(x), ' '); x: =x+1; end; write(sqr(n)); end. №2 var x,k: integer; begin k: =0; writeln('введите число'); read(x); while x> 0 do begin if x mod 10=1 then k: =k+1; x: =x div 10; end; writeln('количество едениц в числе = ',k); end.
Популярно: Информатика
-
AlinaAlina70714.11.2022 16:51
-
Pomogite20000p15.09.2022 13:48
-
anna0513wolf11.09.2020 21:42
-
Alla12348918.08.2020 21:09
-
alenavol200509.06.2021 11:45
-
mynigga4901.03.2020 05:50
-
Vladarmani30.11.2020 14:01
-
Shakhinya0127.11.2022 19:35
-
kychymm13.02.2022 08:51
-
АннаКольцева05.09.2022 00:56