Партнерка на США и Канаду по недвижимости, выплаты в крипто
- 30% recurring commission
- Выплаты в USDT
- Вывод каждую неделю
- Комиссия до 5 лет за каждого referral
333 – 334 бет Семакин 18
338-339 бет 18
340 – 5 есеп
350-351 2 есеп
354 -355 2 есеп
379-382 2 есеп
346-349 2 есеп
333 – 334 бет
Задачи по теме «Подпрограммы»
6.6.1. Нерекурсивные процедуры и функции
18. Имеется часть катушки с автобусными билетами. Номер билета шестизначный. Составить программу, определяющую количество счастливых билетов на катушке, если меньший номер билета — N, больший — М (билет является счастливым, если сумма первых трех его цифр равна сумме последних трех).
#include <iostream>
using namespace std;
int sum_r(int a) {
int s=0;
for (int i=0;i<3;i++) {
s+=a%10;
a/=10;
}
return s;
}
int sum_l(int a) {
int s=0;
a/=1000;
for (int i=0;i<3;i++) {
s+=a%10;
a/=10;
}
return s;
}
int tickets(int n, int m) {
int k=0;
for (int i=n;i<=m;i++)
if (sum_l(i)==sum_r(i)) k++;
return k;
}
int main () {
int n, m;
cout << "N = ";
cin >> n;
cout << "M = ";
cin >> m;
cout << "Число счастливых билетов: " << tickets(n, m) << endl;
}
Составить программу для нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке. Например, для числа 1234 получаем результат 432
#include <iostream>
#include <cmath>
using namespace std;
int digits(int a) {
int n=0;
do a/=10,n++; while (a>0);
return n;
}
int inverse(int a) {
int b=0;
for (int i=digits(a);i>0;i--){
b+=a%10*pow(10.0,i-1);
a/=10;
}
return b;
}
int main () {
int num;
cout << "Введите натуральное число: ";
cin >> num;
cout << inverse(num) << endl;
return 0;
}
338-339 бет 18
Задачи по теме «Одномерные массивы»
18. У вас есть доллары. Вы хотите обменять их на рубли. Есть
информация о стоимости купли-продажи в банках города. В городе
//банков. Составьте программу, определяющую, какой банк выб
рать, чтобы выгодно обменять доллары на рубли.
const n=10;
var a:array[1..n] of integer;
i, t,max:integer;
begin
max:=0;
for i:=1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:=1 to n do
begin
if a[i]>max then
begin
max:=a[i];
t:=i;
end;
end;
writeln('В ',t,' банке');
readln;
end.
340 – 5 есеп
Задачи по теме «Одномерные массивы»
5. Даны действительные числа а а, ..., а„. Среди них есть по
ложительные и отрицательные. Заменить нулями те числа, вели
чина которых по модулю больше максимального числа
(|а,| > max {а,, аъ ..., а„}).
Код Visual Basic
Dim n As Integer
Dim a(n) As Integer
Dim max As Integer
max = a(1) 'max - максимальный элемент
'Ищем максимальный элемент
If n > 1 Then
For i = 2 To n
If a(i) > max Then max = a(i)
Next
End If
'Ищем числа, по модулю больше максимума и присваиваем им ноль
For i = 1 To n
If Math. Abs(a(i)) > max Then
a(i) = 0
End If
Next
Паскальда
uses crt;
const nmax=100;
var a:array[1..nmax] of integer;
n, i,j, k:byte;
mx:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Массив:');
repeat
a[1]:=random(10)-5;
until a[1]<>0;
write(a[1]:4);
mx:=a[1];
for i:=2 to n do
begin
repeat
a[i]:=random(20)-11;
until a[i]<>0;
write(a[i]:4);
if a[i]>mx then mx:=a[i];
end;
writeln;
writeln('Максимальный=',mx);
writeln;
writeln('Замена элементов:');
for i:=1 to n do
begin
if abs(a[i])>mx then a[i]:=0;
write(a[i]:4);
end;
readln
end.
350-351 2 есеп
Операции с элементами массивов
2. Дана матрица А размером п х т. Определить к — количество
особых элементов массива А, считая его элемент особым, если он
больше суммы остальных элементов его столбца.
#include<stdio. h>
#define N 10
int main()
{ int a[N], i, m, j, n;
j=0;
scanf("%d_%d", &m, &n);
for (i=0; i<N; i++)
{if (a>n && a<m)
j++;
}
printf("%d", j);
return 0;
}
354 -355 2 есеп
Задачи по теме «Работа со строками»
2. Дана строка, содержащая английский текст. Найти количе
ство слов, начинающихся с буквы Ь.
379-382 2 есеп
Задачи по теме «Графика»
2. В треугольной пирамиде построить сечение, проходящее чере з боковое ребро и медиану основания.
346-349 2 есеп
6.8. Задачи по теме «Двумерные массивы»
6.8.1. Задачи на формирование массивов
