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

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

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