Program chislo;
<span>Var x, y, a, b :integer; </span>
<span>begin </span>
<span>for x:=10 to 99 do </span>
<span>begin </span>
<span>a:=x div 10; {1 цифра} </span>
<span>b:=x mod 10; {2 цифра} </span>
<span>y:= a*1000+a*100+b*10+b; {вставили между цифрами это же число} </span>
<span>if (y div x = 99) and (y mod x = 0) then writeln ('Искомое число = ', x) </span>
<span>end; </span>
<span>end.</span>
Ветвление — алгоритмическая конструкция, в которой, в зависимости от результата проверки условия («да» или «нет»), предусмотрен выбор одной из двух последовательностей действий (ветвей).
В разных кодировках по разному. обычно 1 символ - 1 байт(8бит)
#define N 7
#define M 3
#include <iostream>
using namespace std;
int main() {
float Y[N][M];
// Ввод данных
for (int i = 0; i < N; i++)
for (int j = 0; j < M; j++)
cin >> Y[i][j];
float sum = 0, prod = 0;
for (int i = 0; i < N; i++) {
prod = 1;
for (int j = 0; j < M; j++) {
prod *= Y[i][j];
}
sum += prod;
}
cout << "Sum: " << sum << ".\n";
return 0;
}
Var a,c,l,w1,w2,w3 : longint;begin readln(a,c); w1:=0; w2:=0; w3:=0; l:=a mod 10; while a>0 do begin if a mod 10=c then w1:=w1+1; if a mod 10=l then w2:=w2+1; if a mod 2=0 then w3:=w3+1; a:=a div 10; end; writeln(w1,' ',w2,' ',w3);<span>end.
</span>