program konfety; var t: real; i: integer; begin WriteLn('Введите стоимость 1 кг конфет (в рублях): '); Read(t); for i := 1 to 10 do WriteLn('Стоимость ', i, ' кг конфет: ', i*t); end.
Смысл такой: - цена 1 кг конфет (вещественный тип real) - счетчик, который будет увеличиваться на единицу после каждого выполнения тела цикла .
WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.
Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной то значение, которое мы ввели.
Далее идет цикл , который по сути вот что делает: Для каждого целого i от 1 до 10 сделай вот что: Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t
После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.
А дальше у нас end (последний end. всегда с точкой).
Тут никакой формулы не надо, просто сами вводите любое двузначное число в выбранную вами ячейку (например, в C4). Если лень придумывать число, вставьте формулу для случайного двузначного =СЛУЧМЕЖДУ(10;99)
Она будет обновляться при пересчёте формул (клавишей F9, либо SHIFT+F9 для текущего листа). Ну, или просто начните её редактировать, введите какой нибудь символ, сразу его сотрите и нажмите Enter - и формула обновит значение.
2) Число десятков в нём (пусть будет в ячейке C5)
Если вам задавали через функцию округления вниз (как написано в соседнем вопросе), то вот формула =ОКРВНИЗ(C4/10)
Ещё целую часть от деления можно находить (и так даже правильнее) с специально предназначенной для этого функции =ЧАСТНОЕ(C4;10)
3) Число единиц в нём (пусть будет в ячейке C6)
Формула =ОСТАТ(C4;10) -это и есть самая правильная функция для нахождения остатка от деления
4) Сумма его цифр
Формула =C5+C6 Просто сумма двух ячеек. Ну, если хотите, можно найти её через функцию суммы для диапазона =СУММ(C5:C6) либо отдельных ячеек =СУММ(C5;C6)
5) Произведение его цифр
Формула =C5*C6 Просто произведение двух ячеек. Ну, если хотите, можно найти его через функцию произведения для диапазона =ПРОИЗВ(C5:C6) либо отдельных ячеек =ПРОИЗВ(C5;C6)
Скачать таблицу можно внизу, справа от скрина.
P.S. Если что, я делал таблицу в аналоге Экселя (в LibreOffice), поэтому проверьте результат расчётов на трёх числах хотя бы (вроде все формулы должны совпадать, но вдруг)
var t: real;
i: integer;
begin
WriteLn('Введите стоимость 1 кг конфет (в рублях): ');
Read(t);
for i := 1 to 10 do
WriteLn('Стоимость ', i, ' кг конфет: ', i*t);
end.
Смысл такой:
WriteLn() выводит на экран строку, которая заключена в кавычки. Не забываем ставить точку с запятой после операций.
Read(t) дает вам возможность вписать, сколько стоит килограмм конфет, и присваивает переменной
Далее идет цикл
Для каждого целого i от 1 до 10 сделай вот что:
Выведи на экран строку 'Стоимость ', потом значение i, потом строку 'кг конфет: ', потом число i умноженное на t
После того, как закончишь обрабатывать все это в последний десятый раз, переходи дальше.
А дальше у нас end (последний end. всегда с точкой).
Конец.
1) Введите двузначное число
Тут никакой формулы не надо, просто сами вводите любое двузначное число в выбранную вами ячейку (например, в C4). Если лень придумывать число, вставьте формулу для случайного двузначного =СЛУЧМЕЖДУ(10;99)
Она будет обновляться при пересчёте формул (клавишей F9, либо SHIFT+F9 для текущего листа). Ну, или просто начните её редактировать, введите какой нибудь символ, сразу его сотрите и нажмите Enter - и формула обновит значение.
2) Число десятков в нём (пусть будет в ячейке C5)
Если вам задавали через функцию округления вниз (как написано в соседнем вопросе), то вот формула =ОКРВНИЗ(C4/10)
Ещё целую часть от деления можно находить (и так даже правильнее) с специально предназначенной для этого функции =ЧАСТНОЕ(C4;10)
3) Число единиц в нём (пусть будет в ячейке C6)
Формула =ОСТАТ(C4;10) -это и есть самая правильная функция для нахождения остатка от деления
4) Сумма его цифр
Формула =C5+C6 Просто сумма двух ячеек. Ну, если хотите, можно найти её через функцию суммы для диапазона =СУММ(C5:C6) либо отдельных ячеек =СУММ(C5;C6)
5) Произведение его цифр
Формула =C5*C6 Просто произведение двух ячеек. Ну, если хотите, можно найти его через функцию произведения для диапазона =ПРОИЗВ(C5:C6) либо отдельных ячеек =ПРОИЗВ(C5;C6)
Скачать таблицу можно внизу, справа от скрина.
P.S. Если что, я делал таблицу в аналоге Экселя (в LibreOffice), поэтому проверьте результат расчётов на трёх числах хотя бы (вроде все формулы должны совпадать, но вдруг)