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

Даны 3 различных целых числа. найти среднее из них. basic.

👇
Ответ:
Muminat20022005
Muminat20022005
22.08.2022
Необходимо сравнить их  бейсик не знаю вот в паскале накидал. думаю не много зная синтаксис бейсика проблем не будет.

uses crt;
var a,b,c,min,max,srednee:integer;
begin
writeln('Введите 3 целых числа:');  
read(a,b,c);  
ax:=a else max:=b;  
if c>max then max:=c;
if a<b then min:=a else min:=b;
if c<min then min:=c;
srednee:=a+b+c-mn-mx;
write('среднее число=',srednee);
end.
4,7(13 оценок)
Ответ:
Nastiy1987
Nastiy1987
22.08.2022
INPUT "A=";A
MIN=A
MAX=A
INPUT "B=";B
IF B<MIN THEN MIN=B
IF B>MAX THEN MAX=B
INPUT "C=";C
IF C<MIN THEN MIN=C
IF C>MAX THEN MAX=C
S=A+B+C-MAX-MIN
PRINT "S=";S

Если речь идет о среднем арифметическом, то
INPUT "A=";A
INPUT "B=";B
INPUT "C=";C
S=(A+B+C)/3
PRINT "S=";S
4,7(60 оценок)
Открыть все ответы
Ответ:
cat9913
cat9913
22.08.2022
Заодно потренировался, вот тебе 1), а остальной нету.

<!doctype html><html><head></head><body><!-- меньше алертов --><script type="text/javascript">function stroka(x,y,z) { var str = prompt("BBegu"); var sumx; var sumy; var sumz; var x; var y; var z; sumx=0; sumy=0; sumz=0; if (str.indexOf("*") >= 0) { x = str.indexOf("*"); document.write("str[x"+x+"]="+str[x]+"<br>"); sumx=sumx+1; } else { document.write("HeTy x <br>"); } if (str.indexOf(":") >= 0) { y = str.indexOf(":"); document.write("str[y"+y+"]="+str[y]+"<br>"); sumy=sumy+1; } else { document.write("HeTy y <br>"); } if (str.indexOf(";") >= 0) { z = str.indexOf(";"); document.write("str[z"+z+"]="+str[z]+"<br>"); sumz=sumz+1; } else { document.write("HeTy z <br>"); }
for (i=0; i<=str.length-1; i++) { if (str.indexOf("*",i) > x) { document.write("str["+str.indexOf("*",i)+"]="+str[str.indexOf("*",i)]+"<br>"); sumx=sumx+1; x = str.indexOf("*",i); } if (str.indexOf("*",i) > y) { document.write("str["+str.indexOf(":",i)+"]="+str[str.indexOf(":",i)]+"<br>"); sumy=sumy+1; y = str.indexOf(":",i); } if (str.indexOf("*",i) > z) { document.write("str["+str.indexOf(";",i)+"]="+str[str.indexOf(";",i)]+"<br>"); sumz=sumz+1; z = str.indexOf(";",i); } } document.write('sumx='+sumx+"<br>"); document.write('sumy='+sumy+"<br>"); document.write('sumz='+sumz+"<br>");}stroka (2);alert(x);
</script><br /></body></html>
4,7(1 оценок)
Ответ:
egmoisee
egmoisee
22.08.2022
Программа вкратце.
Если посещал уроки то сможешь ее написать чтоб работала.
В условии задачи ошибка, наверное вместо - написал плюс.
y = sqrt(х+5). если x>0.
пусть здесь будет так: у= sqrt(5-х). если x<0

Program radical;
var x,y:integer;
Begin
readln(x);
if ((x+5) >= 0) and ((5-х) >=0)) then begin
   { проверка чтобы не-было меньше нуля }
    if (x>0) then 
       y = sqrt(x+5);
    else if (x<0) then 
       y = sqrt(5-x);
    writeln('результат=', y); 

   end
else 
    writeln("нельзя извлечь корень из отрицательного числа");

readln();

End.
4,4(49 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ