В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Nikita7152
Nikita7152
14.12.2020 08:57 •  Информатика

перевести с Паскаля на Питон
var a,b,c:integer;

begin
write('Введите a = ' );readln(a);
if a>=0 then a:=sqr(a) else a:=sqr(a*a);
write('Введите b = ' );readln(b);
if b>=0 then b:=sqr(b) else b:=sqr(b*b);
write('Введите c = ' );readln(c);
if c>=0 then c:=sqr(c) else c:=sqr(c*c);
writeln('a = ',a,' b = ',b,' c = ',c);
end.

Ответ:
hrsalesaudit
hrsalesaudit
12.10.2020 03:01

a = int(input('Введите a = '))

if a >= 0:

   a = pow(a, 2)

else:

   a = pow(a * a, 2)

b = int(input('Введите b = '))

if b >= 0:

   b = pow(b, 2)

else:

   b = pow(b * b, 2)

c = int(input('Введите с = '))

if c >= 0:

   c = pow(c, 2)

else:

   c = pow(c * c, 2)

print(f'a = {a} b = {b} c = {c}')

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?