М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
vicroriaalakoz3
vicroriaalakoz3
03.09.2022 05:53 •  Информатика

дам name1 = "Алина"
height = 1.90
weight = 80

name2 = "Артем"
height = 1.70
weight = 60

name3= "Ульяна"
height= 2
weight= 150

def bmi_calculator(name, height, weight):
bmi = weight / (height **2)

print("индекс массы тела: " + str(bmi))
if bmi < 18.5:
return name + " ниже среднего веса"
if bmi > 25:
return name + " средний вес"
if bmi > 30:
return name + " избыточный вес"
if bmi > 35:
return name + " ожирение 1 степени "
if bmi > 40:
return name + " ожирение 2 степени "
if bmi > 41:
return name + " ожирение 3 степени "
bmi1 = bmi_calculator(name1, height1, weight1)
bmi2 = bmi_calculator(name2, height2, weight2)
bmi3 = bmi_calculatot(name3, height3, weight3)
Не могу найти ошибку


дам name1 = Алина height = 1.90 weight = 80 name2 = Артем height = 1.70 weight = 60 name3= Улья

👇
Открыть все ответы
Ответ:
lev2121
lev2121
03.09.2022
Var x,y,z:longint;
begin
writeln(' TEST');
writeln(' выберите верный вариант ответа 1,2 или 3');
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
writeln(' сюда вбиваешь вопрос ');
writeln('1.сюда варианты ответов);
writeln('2.сюда варианты ответов);
writeln('3.сюда варианты ответов);
read(x);
if (x=номер верного варианта) then y:=y+1;
if (y=3)then write('ваша оценка 5');
if (y=2)then write('ваша оценка 3');
if (y=1)then write('ваша оценка 2');
end.
проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
4,8(65 оценок)
Ответ:
Var a1,b1,n,d:integer;
sa:real;
begin
writeln('vvedite perviy element arefmeticescoy progressii=');
readln (a1);
writeln('skoliko cisel');
readln(n);
writeln('raznosti arefmeticescoy progressii=');
readln(d);
writeln ( 'summa arefmeticescoy progressii=');
sa:=((2*a1+(n-1)*d)/2)*n;
write(sa);
readln;
end.


var i,j,q,n:integer; 
z,b,b1,sg:real;
begin
write('vvedite perviy element geometricescoy progressii');
read(b1);
writeln('q=');
readln(q);
writeln('n=');
readln(n);
for i:= 1 to n do
 begin
z:=i;
b:= b1 *Power(q,z-1);
sg:= sg + b;
end;
writeln('summa geometricescoy progressii=',sg);
readln;
end.
4,8(97 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ