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

Записать числа от 30 до 10 в столбец pascal abc

👇
Ответ:
romanowacristi
romanowacristi
17.04.2023
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
  for var i:=30 downto 10 do println(i);
end.
4,4(52 оценок)
Открыть все ответы
Ответ:
zhenyaamelkov2
zhenyaamelkov2
17.04.2023

1. пропала ; после  writeln('Цифра')

2. меньше или равно пишется <=,  так что условие n=<300 надо переписать n<=300

3. после sum:=n+sum; пропала закрывающая скобка end

4. после else надо бы еще begin

5. предпоследняя строчка тоже мимо.

Вот вся исправленная прога:

program one;

var a,n,sum,b:integer;

sred:real;

begin

readln(n);

writeln('Цифра');

while (n<>0) do

begin

sred:=0;

sum:=0;

b:=0;

if(n mod 8 =0 )and (n<=300) then

begin

sum:=n+sum;

end

else

begin

writeln('NO');

end;

readln(n);

if b>100 then

writeln('NO')

end;

sred:=sum/b;

writeln('Среднее арихметическое равно ',':=',sred);

end.

4,8(61 оценок)
Ответ:
alena7571
alena7571
17.04.2023
Самый простой узнать какая монета легче (тяжелее деления на половины:
1) Разделить монеты на две части по 50 монет
Взвесить их, на какой чаше весов находится легкая (тяжелая) монета будет понятно по положению чаш.
2) Одну половину отложить, вторую половину монет опять разделить на две части. 
Взвесить половины по 25 монет. Результат тот же: если чаша весов поднялась вверх - там находится легкая монета (если ищем тяжелую - то опустится)
3) Отложить одну часть - в которой нет легкой (тяжелой монеты). Снова поделить на две половины по 12 монет. Одна монета останется.
Взвесить на весах монеты: если чаши останутся в равновесии, значит одиночная монета легче (тяжелее) остальных. Если положение чаш весов изменится, значит определяем, в какой чаше нужная монета.
4) 12 оставшихся монет делим на 2 части по 6 монет. Взвешиваем. Оставляем снова одну часть.
5) 6 монет делим на 2 части. Взвешиваем. Определяем, где легче (тяжелее).
6) 3 делим на 2 части по одной монете. весы в равновесии при сравнении двух монет, значит последняя монета легче (тяжелее). Если весы изменили положение, значит на них нужная монета.
Итого 6 взвешиваний.
4,5(5 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ