Ирина упаковывает новогодние подарки. На прямоугольную коробку с известными длиной, шириной и высотой ей нужен прямоугольный лист красивой бумаги, чья длина равна сумме высоты и ширины подарка, а ширина - длине подарка. Кроме того, нужно оставить 5 см на швы. Ленточка нужна для обвязки подарка по периметру (в любом направлении), на бант тратится 20 см. На выходе нужен размер листа (длина х ширина ) и длина ленты. Какие данные нужно предоставить на вход? Напишите текст программы.
program z1; (Начало программы)
var n, s, i, c:integer; (Раздел описания переменных, n(кол-во чисел), s(сумма чисел), i(счетчик), с(число, введенное с клавиатуры))
begin (тело программы)
writeln ('Кол-во чисел?'); (подсказка для пользавателя)
readln (n); (считывание переменной)
s:=0; (обнуляем переменную)
For i:= 1 to n do begin (цикл будет повторяться от 1 до N; т.к в цикле будет несколько действий открываем операторные скобки (begin\end), начало цикла)
writeln ('Введите число'); (подсказка для пользавателя)
readln(c); (считывание переменной)
If c>0 then s:=s+c; (если с>0 тогда к сумме мы прибавляем число)
end; (конец цикла)
writeln ('Сумма=',s); (подсказка для пользавателя и ответ)
readln(s); (считывание переменной)
readln; (считывание)
end.(конец программы)
10000x4000x500x30x4
Цифры числа расположены в определенных позициях, которые соответствуют (справа налево) единицам, десяткам, сотням, тысячам и так далее. Определите название позиции и ее значение для каждой цифры (справа налево).
Пример: так как в данном числе четыре цифры, то вам нужно определить названия четырех позиций (справа налево).
7 соответствует единицам (значение = 1).
2 соответствует десяткам (значение = 10).
8 соответствует сотням (значение = 100).
5 соответствует тысячам (значение = 1000).