Var a,b,c,d:integer;
begin
writeln('a, b, c:');
readln(a,b,c);
if (a>b)and(a<c)or(a>c)and(a<b)
then begin d:=b; b:=c; c:=d; end
else if (b>a)and(b<c)or(b>c)and(b<a)
then begin d:=a; a:=c; c:=d; end
else begin d:=a; a:=b; b:=d; end;
writeln('a = ',a,' b = ',b,' c = ',c);
end.
Пример:
a, b, c:
8 5 2
a = 2 b = 5 c = 8
#include<iostream>
#include <cstdlib>
#include <math.h>
using namespace std;
int main()
{
system("chcp 1251 > null");
int n = 0;
cout << "Задача 1.\n\tВведіть n: ";
cin >> n;
for(int i = 1; i<=n; i++){
if(i%7==0){
cout << i;
}
}
cout << "\n\n";
int a,b;
cout << "Задача 2.\n\tВведіть перше число діапазону: ";
cin >> a;
cout <<"\n\tВведіть друге число діапазону: ";
cin >> b;
double sum = 0;
double sr = 0;
int index = 0;
for(int i = a; i<=b; i++){
sum = sum+i;
index++;
}
sr = sum / index;
cout << "\n\nСума: " << sum << "\nСереднє арифметичне: " << sr;
int x = 0;
int y = 0;
cout << "\n\nЗадача 3.\n\tВведіть x: ";
cin >> x;
cout << "\n\tВведіть y: ";
cin >> y;
cout << "Результат" << powl(x,y);
}
Старался написать как можно проще. Попрошу оценить мои старания ;-)
<span>1) Если человек умер, то это надолго, если человек - идиот, то это - навсегда.
</span><span>2) Если бы у бабушки была борода, она была бы дедушкой.
</span><span>3) Пока гром не грянет - мужик не перекрестится.</span>
Var
a: array[1..10] of integer;
s, i: integer;
begin
for i:=1 to 10 do
begin
a[i]:= random(50)+1;
if (a[i] mod 2 = 0) and (i mod 2 = 0) then
s:=s+a[i];
writeln(a[i])
end;
writeln('Сумма: ', s)
<span>end.</span>
Никогда, никогда не составляйте программу для тех задач, которые можно решить математически!
У нас первое число 5, последнее 50, количество чисел 50/5 = 10.
Имеем сумму арифметической прогрессии:
(5 + 50)/2 * 10 = 275.
Ответ: 275.
