1)
#include <iostream>
using namespace std;
int main() {
int n,m;
cout << "Enter number n: ";
cin >> n;
cout << "Enter number m: ";
cin >> m;
for (int i = n; i <= m; i++) {
if (i % 3 == 0) cout << i << endl;
}
}
2)
#include <iostream>
using namespace std;
int main() {
int n, m, sum=0;
cout << "Enter number n: ";
cin >> n;
cout << "Enter number m: ";
cin >> m;
for (int i = n; i <= m; i++) {
if (i % 2 == 0) sum+=i;
}
cout << "Result: " << sum;
}
3)
#include <iostream>
using namespace std;
int main() {
long n,m, max=0;
cout << "Enter number: ";
cin >> n;
m = n;
for (int i = 10; n>0;) {
if (n % i > max)
max = n % i;
n = n / i;
}
cout << "Result: " << max;
}
Объяснение:
1.
program MinElement;
var
X: array[1..30] of Integer;
i, min: integer;
begin
randomize;
for i := 1 to 30 do
X[i] := random(100);
min := X[1];
for i := 1 to 30 do
if X[i] < min then
min := X[i];
writeln('Минимальное число: ', min);
write('Все элементы:');
for i := 1 to 30 do
write(' ', X[i]);
readln;
end.
2.
program Summa;
var
X: array[1..20] of Integer;
i, sum: integer;
begin
randomize;
for i := 1 to 20 do
X[i] := random(100);
sum := 0;
for i := 1 to 20 do
sum := sum + X[i];
writeln('Сумма всех чисел: ', sum);
write('Все элементы:');
for i := 1 to 20 do
write(' ', X[i]);
readln;
end.
Всё правильно и проверено лично!
var r,a: integer;
begin
write('Введите радиус окружности: ');
readln(r);
write('Введите сторону квадрата: ');
readln(a);
if (2*r=a) then writeln('ДА')
else writeln('НЕТ');
end.