1) program fagasg; var a,b,c,d: integer; begin Writeln('Введите первое число'); readln(a); Writeln('Введите второе число'); readln(b); Writeln('Введите третье число'); readln(c); d:=0; If a>0 then d:=d+1; If b>0 then d:=d+1; If c>0 then d:=d+1; Writeln('Количество положительных чисел:',d); end. 2) program gsggdfd; var n,s,i: integer; begin writeln('Введите n'); readln(n); s:=0; For i:=1 to n do S:=s+i; Writeln('Сумма последовательности равна:',s); end. 3)Program afsdgf; var A: Array[1..100] of integer; i,h,s,l: integer; begin Writeln('ведите размер массива'); readln(h); s:=1; l:=1; For i:=1 to h do begin A[i]:=s+l; s:=s+2; writeln(A[i]); l:=A[i]; end; end.
X mod 3 - последняя цифра в троичной записи числа X. X div 3 - число, полученное отбрасыванием последней цифры в троичной системе счисления.
Используя написанное выше, легко понять, что делает программа.
Сначала M = L = 0, затем в цикле, пока X > 0, к M прибавляется 1, к L прибавляется 1, если последняя цифра в троичной записи числа равна 2. Потом последняя троичная цифра отбрасывается. В конце выводится M и L.
Программа выводит количество троичных цифр в записи числа X и количество двоек в троичной записи числа X.
Итак, нужно найти количество чисел, троичная запись которых состоит из 5 цифр, из которых ровно две двойки.
Если первая цифра не двойка, то она 1 (0 быть не может): 1. Для двоек можно выбрать место на каждое из мест, обозначенных вопросом, можно поставить любую из 2 цифр (0 или 1). Получается 6 * 2 * 2 = 24 числа.
Если первая цифра двойка, то место для второй двойки можно выбрать каждый вопрос можно заполнить одной из двух цифр, итого 4 * 2 * 2 * 2 = 32 числа.
var a,b,c,d: integer;
begin
Writeln('Введите первое число');
readln(a);
Writeln('Введите второе число');
readln(b);
Writeln('Введите третье число');
readln(c);
d:=0;
If a>0 then d:=d+1;
If b>0 then d:=d+1;
If c>0 then d:=d+1;
Writeln('Количество положительных чисел:',d);
end.
2) program gsggdfd;
var n,s,i: integer;
begin
writeln('Введите n');
readln(n);
s:=0;
For i:=1 to n do
S:=s+i;
Writeln('Сумма последовательности равна:',s);
end.
3)Program afsdgf;
var A: Array[1..100] of integer;
i,h,s,l: integer;
begin
Writeln('ведите размер массива');
readln(h);
s:=1;
l:=1;
For i:=1 to h do
begin
A[i]:=s+l;
s:=s+2;
writeln(A[i]);
l:=A[i];
end;
end.
56
Объяснение:
X mod 3 - последняя цифра в троичной записи числа X. X div 3 - число, полученное отбрасыванием последней цифры в троичной системе счисления.
Используя написанное выше, легко понять, что делает программа.
Сначала M = L = 0, затем в цикле, пока X > 0, к M прибавляется 1, к L прибавляется 1, если последняя цифра в троичной записи числа равна 2. Потом последняя троичная цифра отбрасывается. В конце выводится M и L.
Программа выводит количество троичных цифр в записи числа X и количество двоек в троичной записи числа X.
Итак, нужно найти количество чисел, троичная запись которых состоит из 5 цифр, из которых ровно две двойки.
Если первая цифра не двойка, то она 1 (0 быть не может): 1. Для двоек можно выбрать место на каждое из мест, обозначенных вопросом, можно поставить любую из 2 цифр (0 или 1). Получается 6 * 2 * 2 = 24 числа.
Если первая цифра двойка, то место для второй двойки можно выбрать каждый вопрос можно заполнить одной из двух цифр, итого 4 * 2 * 2 * 2 = 32 числа.
Всего 24 + 32 = 56 вариантов.