Решите пожалуйста 2 задачи по информатике. 40 баллов!

Question

Решите пожалуйста 2 задачи по информатике. 40 баллов!

---

Answer 1

Ответ:

1)

for i in range(4):

   a = int(input())

   if a < 0:

       print(a * 3)

   else:

       print(a * a)

2)

a = int(input()) #вводим стоимость покупки

P1 = int(input()) #вводим размер скидки P1

P2 = int(input()) #вводим размер скидки P2

P3 = int(input()) #вводим размер скидки P3

if a > 500 and a < 1000:

   print(a - P1)

elif a > 1000 and a < 5000:

   print(a - P2)

elif a > 5000:

   print(a - P3)

Решено на языке Python

Comments

А можешь пожалуйста сделать в Паскале?

---

Program first;
VAR f, i: integer;
Begin
for i := 1 to 4 do
begin
readln(f);
if f < 0 then writeln(f * 3)
else writeln(f * f);
end;
End.