Var
a: array [1..4] of integer;
i, sf, ss : integer;
begin
for i:=1 to 4 do
begin
a[i]:= random(50)+1;
writeln(a[i]);
if a[i] mod 2 = 0 then sf:=sf+a[i] else
ss:= ss+a[i];
end;
writeln('Сумма четных: ', sf, ' ; сумма нечетных: ', ss);
<span>end.</span>
Int a[39];
int sum=0;
for(int i=0; i<=39; i++)
{ for(int j=20; j<=60; j++)
a[i]=j;
}
for(i=0; i<39;i++)
sum+=a[i];
Найти среднее арифметическое всех целых чисел от 1 до 1000.
3.Пользователь вводит две границы диапазона, вывести на экран все числа из этого диапазона. Предусмотреть, чтобы пользователь мог вводить границы диапазона в произвольном порядке.
вывести все четные числа из диапазона.
вывести все нечетные числа из диапазона.
вывести все числа, кратные семи
4.Пользователь с клавиатуры вводит числа. Посчитать их сумму и вывести на экран, как только пользователь введет ноль.
Ответ:
На фото мало что видно, но я попытаюсь помочь.
Как математически это представить?
1)
Точка должна быть ниже линии у=(непонятка1) горизонтальная линия
2)
Точка должна быть левее линии х=(непонятка2) вертикальная линия
3)
Точка должна быть выше линии у=(непонятка3 зависящая от х) накладная линия
По программистски условие выглядит так:
If у<(непонятка1) and x<(непонятка2) and y>(непонятка3 зависящая от х) then write('принадлежит');
Else write(' не принадлежит');
Итоговая прога выглядит примерно так:
Var x,y: real;
Begin
Read(x,y);
If у<(8) and x<(8) and y>(x-8) then write('принадлежит');
Else write(' не принадлежит');
End.
Вот и всё. Я не вижу чему равны непонятки, поэтому замени 8 на соответствующие величины