Var n: integer;
begin
writeln('Введите число:');
readln(n);
if n mod 2 =0 then writeln('Это четное число')
else writeln('Это нечетное число')
end.
var
m:integer;
n:real;
begin
n:=120;
m:=0;
while n<150 do
begin
n:=1.02*n;
m:=m+1;
end;
writeln('Ответ: ',m)
end.
RFV,EP RE,HBR ZRJHM
DFDASD ASD ASD ASDAS DASD ASD
Моя природа двигается и у неё течёт кровь а неживая природа это как камень или ещё что-то
Нам задавали только 5, вот они:
<span> использовать Чертежникалг цифра_1начопустить перосместиться на вектор (0,2)сместиться на вектор (2,2)сместиться на вектор (0,-4)поднять перосместиться на вектор (-2,0)кон
использовать Чертежникалг цифра_2начопустить перосместиться в точку (1,1)сместиться в точку (1,2)сместиться в точку (0,2)поднять перосместиться в точку (0,0)опустить перосместиться в точку (1,0)поднять перосместиться в точку (0,0)кон
использовать Чертежникалг цифра_3начопустить перосместиться на вектор (1,1)сместиться на вектор (-1,0)сместиться на вектор (1,1)сместиться на вектор (-1,0)поднять перосместиться на вектор (0,-2)кон
использовать Чертежникалг цифра_4начподнять перосместиться на вектор (1,0)опустить перосместиться на вектор (0,2)поднять перосместиться на вектор (0,-1)опустить перосместиться на вектор (-1,0)сместиться на вектор (0,1)поднять перосместиться на вектор (0,-2)кон
использовать Чертежникалг цифра_5начопустить перосместиться на вектор (1,0)сместиться на вектор (0,1)сместиться на вектор (-1,0)сместиться на вектор (0,1)сместиться на вектор (1,0)поднять перосместиться на вектор (-1,0)сместиться на вектор (0,-2)<span>кон</span></span>
Задача максимально простая, нужно просто немного подумать.
Ничего страшного нет в том, что объявляются 10 элементов массива.
Далее у нас объявляется переменная m, которая служит ориентиром для проверки чисел массива. Это легко понять из условия в цикле.
Переменная n является счётчиком. Переходим к циклу.
В цикле проверяется, больше или равен ли k-й элемент постоянной переменной m?Если да, то счётчик увеличивается на единицу.
Из этих рассуждений легко понять цель данной программы:
<h3>Найти количество чисел, больших или равных 21.</h3>
Рассмотрим все значения массива (Dat[k] := значение) и посчитаем, сколько чисел больше 21 или равны 21:
21, 41, 21, 28, 53, 59, 35
<h2>Ответ</h2>
7