Var
a:array[1..2,1..3] of integer;
i,t,j:integer;
begin
writeln('До:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
begin
a[i,j]:=random(10);
write(a[i,j],' ');
end;
writeln;
end;
for j:=1 to 3 do
begin
t:=a[1,j];
a[1,j]:=a[2,j];
a[2,j]:=t;
end;
writeln('После:');
for i:=1 to 2 do
begin
for j:=1 to 3 do
write(a[i,j],' ');
writeln;
end;end.
<span>ПРИМЕР РАБОТЫ:
До:
5 5 2
8 6 2
После:
8 6 2
5 5 2
</span>
#include <iostream>
using namespace std;
bool check(const int &n)
{
bool b = true;
int ch = n;
int de = n % 10;
while (ch > 0 && b) {
if (de == 0) {
b = false;
}
else if (n % de != 0) {
b = false;
} else {
ch /= 10;
de %= 10;
}
}
return b;
}
int main()
{
int a, b, k = 0;
cin >> a >> b;
for (int i = a; i < b; ++i) {
if (check(i)) {
cout << i << " ";
++k;
}
}
if (k == 0) {
cout << "-" << endl;
}
return 0;
}
Причина в том что Алтынай вышла с полей и она не сможет распечатать текст
1.2 Чтобы распечатать текст Алтынай нужно будет нажать на кнопку "исправить " и ей надо расширить длину бумаги чтобы вместилась то что она хотела вставить
Var n, r, t:longint;
d:integer;
<span>begin </span>
readln (n);
<span> r:=0; t:=1; </span>
<span>while n>0 do begin </span>
d:=n mod 10; if d=5 then begin 1 ошибка: надо вместо d=5 написать d<>5
<span> r:=r+d*t; </span>
t:=t+1 <span>2 ошибка: надо вместо </span>t+1 написать t*10
end;
n:=n div 10;
end;
writeln (t); 3 ошибка: надо вместо t написать r
end.
1)
Function check7(a As Range) As Integer
Dim r As Range
Dim i As Integer
For Each r In a
i = i + 1 - Sgn((Abs(r) + 3) Mod 10)
Next
check7 = i
End Function
Excel VBA
2)
А что здесь программировать-то?
Задача сводится к с следующей: Дано два ящика и 7 мячиков. Сколькими способами можно разместить эти 7 мячиков в этих двух ящиках?
Бросаем все мячики в первый ящик (это первое размещение), затем перекладываем по одному мячика из первого ящика во второй.
Получаем варианты:
7|0
6|1
5|2
4|3
3|4
2|5
1|6
Итого 7 вариантов (варианта 0|7 быть не может, поскольку двузначное число с нуля не начинается).
В общем-то и без вычислений всем очевидно, что способов разместить 7 мячиков в двух ящиков ровно 7.
Что должна вычислять программа?