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) Не могу найти ошибку
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. проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале
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.
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.
проверить на ошибки а тест думаю вы и сами составите надеюсь всё правильно т.к. давно не работал на паскале