A=5
B=6
C=7
Если (5<=6) или (6>7) 5 действительно меньше 6 это истина
6 не больше 7 это ложь
Но так как стоит или значит должно выполниться или одно, или другое, или оба вместе
то х=5+5*6=35
То x=
Var
a: array[1..10] of integer;
j: integer;
begin
j:=1;
repeat
readln(a[j]);
j := j + 1;
until j > 10;
<span>end.</span>
<u>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</u>
<u>// Внимание! Если программа не работает, обновите версию!</u>
begin
var M:=ReadInteger('M=');
var (s,n):=(0,1);
while s<=M do begin
s+=n*n; n+=1
end;
Writeln('Сумма ',s)
end.
............................30
#include "math.h"
#include <stdlib.h>
#include "stdio.h"
#include "conio.h"
#include <iostream>
using namespace std;
int main()
{
using namespace std;
int N;
int count = 0;
setlocale(LC_ALL, "Russian");
cout << "Введите N : "; cin >> N;
for (int i = 0; i <= N; i++)
{
if (i % 5 == 0 && i!=0) count++;
}
cout << "Натуральных чисел,кратных 5-ти в данном ряду : "<< count;
cout << endl;
_getch();
}