Обычно решают на Pascal, но я напишу на C++, он мне роднее)). Я конечно немножко по-другому реализовал (в плане ввода значений), но поставленную задачу выполняет. 1) #include <stdio.h> #inlcude <conio.h> #include <iostream> using namespace std; int main() { long a, b, i, sum=0; cin>>a; // Вводишь число a cin>>b; // Вводишь число b for (i=a;i<=b;i++) { sum=sum+(i*i); } cout<<sum; // выводим сумму квадратов чисел _getch(); }
2) #include <stdio.h> #inlcude <conio.h> #include <iostream> using namespace std; int main() { long a,b,c,d,i; bool z=false; cin>>a; cin>>b; cin>>c; cin>>d; for (i=10000; i<=99999; i++) { if (i % a==b && i % c==d) {z=true; cout<<i<<" ";} } if (z==false) {cout<<"-1";} // Выводится если нет чисел _getch(); }
1) var a,b,s:integer; begin Readln(a,b); s:=0; if (a<0)and(b<0) then begin a:=-a; b:=-b; end; if a<0 then for var i:=1 to b do s+=a else for var i:=1 to a do s+=b; WriteLn(s); end.
Пример: -7 15 -105
2) var n,s:integer; begin Readln(n); s:=0; for var i:=1 to n do s+=i; WriteLn(s); end.
Пример: 100 5050
3) var a,b,s:integer; begin Readln(a,b); s:=0; for var i:=a to b do s:=s+i*i; writeLn(s); end.
Пример: 2 5 54
4) var a,b,n:integer; begin Readln(a,b,n); for var i:=1 to n do write(random(b-a+1)+a,' '); end.
===== PascalABC.NET =====
uses NumLibABC;
begin
var A := new Matrix(3,3,1,-3,2,3,-4,1,2,-5,3);
Writeln('*** A ***');
A.Println(4,0);
var B := new Matrix(3,3,2,5,6,1,2,5,1,3,2);
Writeln('*** B ***');
B.Println(4,0);
Writeln('*** AB ***');
(A*B).Println(4,0);
Writeln('*** BA ***');
(B*A).Println(4,0);
end.