Var d1,d2,t,c1,c2,s1,s2: real; begin write('диаметр 1-го арбуза (см): '); readln(d1); write('цена за кг 1-го арбуза: '); readln(c1); write('диаметр 2-го арбуза (см): '); readln(d2); write('цена за кг 2-го арбуза: '); readln(c2); write('толщина корки (мм): '); readln(t); t: =t/10; s1: =c1*power(d1/2,3)/(power((d1/2-t),3)); //стоимость ед.мякоти 1 s2: =c2*power(d2/2,3)/(power((d2/2-t),3)); //стоимость ед.мякоти 2 if s1< s2 then writeln('покупаем первый') else writeln('покупаем второй'); end.
mishanay301csfp
02.09.2020
Ну и вопрос.. это служебные клавиши которые выполняют специфические в разных преложениях (программах) например таблица горячих клавиш для ms word: (эта таблица горячих клавиш word вам сделать работу с программой более эффективной, использование даже нескольких основных сочетаний горячих клавиш word, при работе с программой, способно заметно ускорить процесс создания и редактирования документов) . горячие клавиши word: f1 - вызов справки или f2 - перемещение текста или рисунков f3 - вставка элемента автотекста f4 - повторить последнее действие f5 - перейти (меню «правка» ) f6 - переход к следующей области f7 - правописание (меню «сервис» ) f8 - расширение выделения f9 - обновление выделенных полей f10 - перейти в строку меню f11 - переход к следующему полю f12 - выполнить команду сохранить как (меню «файл» ) shift+: f1 - вызов контекстной справки f2 - копирование текста f3 - изменение регистра букв f4 - найти или перейти далее f5 - переход к предыдущему исправлению f6 - перейти в предыдущую область окна f7 - тезаурус (меню «сервис» ) f8 - уменьшение выделения f9 - отображение кодов или значений полей f10 - вывести контекстное меню f11 - переход к предыдущему полю f12 - выполнить команду сохранить (меню «файл» ) alt+: f1 - переход к следующему полю f3 - создание элемента автотекста f4 - выход из word f5 - прежние размеры окна программы f7 - следующая ошибка f8 - запуск макроса f9 - отображение кодов или значений всех полей f10 - развёртывание окна программы f11 - отображение кода visual basic ctrl+ alt+: f1 - сведения о системе f2 - открыть (меню «файл» ) ctrl+: f2 - предварительный просмотр f3 - удаление выделенного фрагмента в копилку f4 - закрытие окна f5 - прежние размеры окна документа f6 - переход к следующему окну f7 - переместить (оконное меню) f8 - размер (оконное меню) f9 - вставка пустого поля f10 - развернуть или восстановить окно документа f11 - блокировка поля f12 - выполнить команду открыть (меню «файл»)
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Напечатать "столбиком" все целые числа от а до b (значения а, b вводятся с клавиатуры; b> =а , поподробнее.
var
i, a, b: integer;
begin
write('a = '); readln(a);
write('b = '); readln(b);
for i : = a + 1 to b -1 do
writeln(i);
end.