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

Кто у нас информатики? исправьте ошибки 1) if b = 0 then writeln (деление на нуль невозможно); 2) if a > b then max = a else max = b; 3) if (a> b) and (b> 0) then c: =a+b else (‘no’); 4) if a < b then min : = a; else min : = b; 5) if a > b else max: = b then max: = a; 6) if a> b and b> 0 then c: =a+b ;

👇
Ответ:
maxdemplay
maxdemplay
01.08.2022

1) if B: = 0 then Writeln ('Деление на нуль невозможно');

2) if a > b then max: = a else max: = b;

3) if (a>b) and (b>0) then c:=a+b else (‘no’);

4) if a < b then min := a else min := b;

5) if a > b else max: = b then max: = a;

6) if a>b and b>0 then c:=a+b ;

 

вроде так 

4,4(40 оценок)
Ответ:
Ilona004
Ilona004
01.08.2022

В первом пункте  не хватает кавычек, ну и в условиях скобки не помешают   то есть:

  1)    if  (B=0) then writeln('Деление на нуль невозможно');

 2)     if (a > b) then max: = a else max: = b;

 

 3)    if (a>b) and (b>0) then c:=a+b else writeln(‘no’);

4)     if (a < b) then min := a  else min := b;

 

5)     if (a > b) then max: = b else max: = a;

6)     if ((a>b) and (b>0)) then c:=a+b ;

 

 

4,8(39 оценок)
Открыть все ответы
Ответ:
enterways
enterways
01.08.2022
не ставте. ДОБАВЛЯЮ РЕШЕНИЕ, БОЮСЬ НЕ УСПЕТЬ оформить. Но там, если что, вроде обещали вторую попытку редакции. Тогда и программу можно будет добавить Думаю ход рассуждений уже можно понять. Если точки расположены на смежных гранях, формулы получаются похожими ,(а может и такими же), что рассматривались товарищем Allangarsk  Если на противоположных гранях, то надо еще добавить (оформить). Идея то есть.  В общем все многообразие вариантов можно будет втиснуть в 7 групп "формул".

Можно развернуть куб, центром "развертки" делаем грань где сидит муха, если муха и варенье на одной грани достачно просто, путь прямая, Зелным цветом залита одна и таже грань отмечено 4 возможных пути один из которых, в зависимости от размеров куба и координат мухи и варенья будет кратчайшим. Кратчайший путь для ситуации на рисунке -  зеленый пунктир.
Да если достроить до треугольника (черный пунктир катеты d и f), искомый путь гипотенуза. Её длина l= \sqrt{d^2+f^2}
Значит вся "хитрость" в том, чтобы правильно "собрать" длины катетов.
Если успею обобщить и облечь все в формулы (код) (логические выражения), добавлю. И уточню рисунки. Если нет, может кто-то догадается. Или в крайнем случае отошлют на доработку мне или Allangarsk.
Возможно, что в случае расположения на противоположных гранях, придется просчитывать все пути кандидаты и выбирать из них наименьший.
 В случае на расположения на одной грани (X1=X2)OR(Y1=Y2)OR(Z1=Z2) кратчайший путь очевиден. Если, допустим Z1=Z2, то l= \sqrt{(X1-X2)^2+(Y1-Y2^2)}
d=(X1-X2), f=(Y1-Y2).
4,6(66 оценок)
Ответ:
dashakostyk
dashakostyk
01.08.2022

var

a,i,n,a1:integer;

begin

a1:=30000;

read(n);

for i:=1 to n do begin

read(a);

if (a<a1) and (a div 10 <10) and (a div 10 >1)and (a mod 2 = 0) then a1:=a;

end;

writeln(a1);

end.

var

b,x,c:real;

i,n,a:integer;

begin

x:=0;

b:=0;

read(n);

for i:=1 to n do begin

read(a);

if (a mod 7 = 0) or (a mod 3 = 0) then b:=b+a;

if (a mod 7 =0) or (a mod 3 = 0) then x:=x+1;

end;

c:=b/x;

writeln(c);

end.

var

a,b,x,i,n:integer;

begin

x:=0;

read(n);

for i:=1 to n do begin

read(a);

if (a mod 10 <>1) and (a mod 2 = 1) then x:=x+1;

end;

writeln(x);

end.

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