Вопрос: Найти сумму четных чисел натурального ряда, начиная с числа n до m
Найти сумму четных чисел натурального ряда, начиная с числа n до m(m и n вводит пользователь).
Ответ: Без циклов:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
n, m, sum: integer;
begin
sum := 0;
repeat
writeln('Введите числ с которого начинается ряд');
readln(n);
writeln('Введите число которым заканчивается ряд');
readln(m);
until n
40*60*176=422400 байт
422400/1024=412,5 Кбайт
412.5/1024= 0.4 Мбайт
В Паскале чтобы вывести вместо переменной текст, или чтобы присвоить строковой переменной значение используется не двойная, а одинарная кавычка - '
n, m, x, y = map(int, input().split())
dis = min(min(x, min(n,m) - x), min(y, max(n,m) - y))
print(dis)
Var a,b,x:real;
<span>begin </span>
<span>writeln('Введите зачения чисел a и b'); </span>
<span>read(a,b); </span>
<span>x:=a+b; </span>
<span>writeln('Сумма чисел a+b=',x); </span>
<span>end. </span>