Var

a,b,c:integer;

begin

a:=−41;

b:=abs(a);

writeln('abs(−41)=',b);

c:=sqr(b);

writeln('sqr(b)=',c);

c:=sqr(b+b);

writeln('sqr(b+b)=',c);

end.

При запуске программы вывод на экран:

abs(−41)=

sqr(b)=

sqr(b+b)=

Question

Информатика: Var a,b,c:integer; begin a:=−41; b:=abs(a); writeln( abs(−41)= ,b); c:=sqr(b); writeln( sqr(b)= ,c); c:=sqr(b+b); writeln( sqr(b+b)= ,c); end. При запуске программы вывод на экран: abs(−41)= sqr(b)= sqr(b+b)= ​

вася784 · Accepted Answer

В зависимости от файла. На тестах работает.

Объяснение:

#читаем файл

f = open('input.txt',"r")

#читаем данные строки, разделителем данных является пробел

#4 5 20

#с map переводим в числовой тип, но сам map

#выдаёт бяку, нужно его ещё в list завернуть

s = list(map(int,(f.readline().split(' '

#по первому примеру. 4*5 = 20

sumi = s[0] * s[1]

#если полученное кол-во орешков больше или равно s[2] = K

#тогда всё ок, иначе нет

if sumi >= s[2]:

f1 = open('output.txt',"w")

f1.write("YES")

else:

f1 = open('output.txt',"w")

f1.write("NO")

f.close()

f1.close()

Vara,b,c:integer;begina:=−41;b:=abs(a);writeln('abs(−41)=',b);c:=sqr(b);writeln('sqr(b)=',c);c:=sqr(b+b);writeln('sqr(b+b)=',c);end.При запуске программы вывод на экран:abs(−41)=sqr(b)=sqr(b+b)=​

MOGZ ответил

Var

a,b,c:integer;

begin

a:=−41;

b:=abs(a);

writeln('abs(−41)=',b);

c:=sqr(b);

writeln('sqr(b)=',c);

c:=sqr(b+b);

writeln('sqr(b+b)=',c);

end.

При запуске программы вывод на экран:

abs(−41)=

sqr(b)=

sqr(b+b)=