Var n:integer;
begin
write('Введите двузначное число='); readln(n);
if n mod ((n mod 10)+(n div 10))=0 then Writeln('да, делится')
else Writeln('нет, не делится');
end.
#include <windows.h>
#include <conio.h>
#include <math.h>
#include<iostream>
using namespace std;
int main()
{
double m=0;
for (int n = 1;n < 1000;n++) {
m += pow(n, 2) - 2 * n*(n+1) + pow(n+1, 2);
}
cout << m;
_getche();
return 0;
}
Круг получается...............
//1
for i := -3 to 3 do
Read(a[i]);
//2
Randomize;
for i := -3 to 3 do
a[i] := Random(101) - 50;
//3
for i := -3 to 3 do
a[i] := 5 * i;
//4
Randomize;
for i := -3 to 3 do
a[i] := Random(41) + 150