Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>
В программе подсчитывается количество двухзначных чисел, которые делятся на 7 без остатка (14, 21, ... , 98)
язык Python
import sys
# получаем от пользователя цену
price = raw_input("Введите цену товара: ")
#преобразуем строку с ценой к числу
try:
price = int(price)
except:
# если он ввел что-то не то сообщаем об этом и выходим
print "Ошибочное значение цены"
sys.exit(1)
# получаем от пользователя кол-во
cnt = raw_input("Введите кол-во товара: ")
#преобразуем строку с кол-вом к числу
try:
cnt = int(cnt)
except:
# если он ввел что-то не то сообщаем об этом и выходим
print "Ошибочное значение кол-ва"
sys.exit(1)
#выводим результат на экран
print "Стоимость товара:", price*cnt
Ответ на вопрос:кнопка закрыть,свернуть,строка заголовка