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

перевести с Паскаля на Питон
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.

Показать ответ
Ответ:
igor6677
igor6677
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
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота