Дан фрагмент программы. Что будет выведено на экран?k:=0; for j:=1 to 6 do b[j]:=3; for j:=3 to 6 do if b[j]=3 then k:=k+1; write(k);
234
293
Ответы на вопрос:
var a,b,c: integer;
begin
read(a,b,c);
if a< 0
then a: =a*a*a*a
else a: =a*a;
if b< 0
then b: =b*b*b*b
else b: =b*b;
if c< 0
then c: =c*c*c*c
else c: =c*c;
write (a,' ',b,' ',c);
end.
вроде так затестируй на паскале у меня нет но суть такова вроде должна работать
Популярно: Информатика
-
Guletta29.01.2020 07:46
-
AsterXML25.07.2022 13:56
-
Shidvwissysvdiw11.04.2022 23:55
-
hfjfifj24.10.2020 19:50
-
profi121223.05.2021 22:22
-
2604071712.03.2022 11:57
-
707778830.10.2022 13:19
-
Darya019213.10.2020 05:27
-
alinka1215200227.06.2021 16:32
-
vanyushagrechk17.08.2022 17:37