Мы разрабатываем пошаговую игру по мотивам боевика. Игрок - главный герой и должен обезвредить бомбу, которая взорвётся через N секунд. Программа спрашивает пользователя хочет ли он обезвредить бомбу сейчас. Если ответ “0” (то есть “нет”), то счетчик бомбы уменьшается. Если он достиг нуля, то программа выдаёт сообщение “Бомба взорвалась”, а если не достиг, то программа вновь переспрашивает, не хочет ли игрок обезвредить бомбу, и сообщает, сколько времени осталось до взрыва.. Если ответ “да”, то программа выводит на экран сообщение о том, что бомба обезврежена и сколько секунд оставалось до взрыва. Используйте цикл for.
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if (sqr(x1)+sqr(x2)) mod 13=0 then writeln(i);
end;
end.
//1б
Var
i,x1,x2:integer;
begin
for i:=10 to 99 do
begin
x1:=i mod 10;
x2:=i div 10;
if x1+x2+sqr(x1+x2)=i then writeln(i);
end;
end.
//2
Var
i,n,a,k1,k2:integer;
begin
readln(n);
for i:=1 to n do
begin
readln(a);
if a<1985 then k1:=k1+1;
if a>1990 then k2:=k2+1;
end;
writeln('Родившиеся до 1985:',k1);
writeln('Родившиеся после 1990:',k2);
end.
В верхней ячейке первого столбца пишем его название- "Стоимость"
В ячейки ниже записываем стоимость продуктов по порядку:
35
108,59
54,35
171,63
В верхней ячейке второго столбца пишем "Количество"
В ячейки ниже записываем по порядку количество купленных единиц товара (килограмм, упаковок, пачек):
1
2
3
5
В следующем столбце мы вычислим сумму, которую нужно заплатить за каждый вид товара (нужно стоимость умножить на количество купленных единиц товара). В верхней ячейке столбца запишем "Сумма".
В ячейку ниже вводим формулу: сначала знак равно(=), потом мышкой щёлкаем на ячейку стоимости этого товара, потом знак умножения (*), и мышкой щёлкаем на ячейку количества этого товара. Для ввода формулы нажимаем клавишу Enter.
Первую введённую формулу можно скопировать, и вставить в следующие ячейки этого столбца, или можно формулу в каждой ячейке вводить вручную, как в начальной.
Осталось сложить суммы по всем купленным товарам.
Для этого щёлкаем ячейку под столбцом с вычисленными суммами, и нажимаем клавиши Alt и равно(=). При этом в ячейку автоматически введётся формула суммирования вышестоящих ячеек (с функцией СУММ).
Либо, можно ввести формулу вручную, начав со знака равно, указывая мышкой четыре ячейки с суммами по продуктам, ставя между ними знак плюс.
Получится итоговая сумма 1273,38 рублей.
Также, желательно выделить все ячейки с деньгами, и задать числовой формат отображения (правой кнопкой мыши - формат ячеек - числовой, количество знаков= 2). При этом будет видно два знака после запятой.
Примеры такой таблицы смотрите на приложенных картинках (в двух вариантах- простой расчёт, и таблица с дополнительными сведениями).