Программа для 1. var n,b,s:integer; begin Write('Введите натуральное число и значение b: '); Read(n,b); if n>b then Writeln('Неверно') else begin s:=0; while n>0 do begin s:=s+n mod 10; n:=n div 10 end; if s mod 2=0 then Writeln('Верно') else Writeln('Неверно') end end.
Программа для 2. var k,m,n,b,s:integer; begin Write('Введите натуральное число и значения m,n: '); Read(k,m,n); if k mod n <> 0 then Writeln('Неверно') else begin s:=0; while k>0 do begin s:=s+k mod 10; k:=k div 10 end; if s>m then Writeln('Верно') else Writeln('Неверно') end end.
1. Всего слов в списке 5^5=3125 2. ШАЛКА 3. По первой букве слова делятся на 5 груп по 625 слов. Слова на букву Ш начинаются с 2501. По второй букве слова делятся на 5 груп по 125 слов. Слова на ШК начинаются с 2626. По третьей букве слова делятся на 5 груп по 25 слов. Слова на ШКО начинаются с 2701. По четвёртой букве слова делятся на 5 груп по 5 слов. Слова на ШКОЛ начинаются с 2711, и первое из них и будет слово ШКОЛА. ответ: 2711 4. 126 место - первая буква всё ещё А, а на втором месте закончилась А и началась К. ответ: АКААА
var
n,b,s:integer;
begin
Write('Введите натуральное число и значение b: ');
Read(n,b);
if n>b then Writeln('Неверно')
else begin
s:=0;
while n>0 do begin
s:=s+n mod 10;
n:=n div 10
end;
if s mod 2=0 then Writeln('Верно') else Writeln('Неверно')
end
end.
Программа для 2.
var
k,m,n,b,s:integer;
begin
Write('Введите натуральное число и значения m,n: ');
Read(k,m,n);
if k mod n <> 0 then Writeln('Неверно')
else begin
s:=0;
while k>0 do begin
s:=s+k mod 10;
k:=k div 10
end;
if s>m then Writeln('Верно') else Writeln('Неверно')
end
end.
2. ШАЛКА
3. По первой букве слова делятся на 5 груп по 625 слов. Слова на букву Ш начинаются с 2501.
По второй букве слова делятся на 5 груп по 125 слов. Слова на ШК начинаются с 2626.
По третьей букве слова делятся на 5 груп по 25 слов. Слова на ШКО начинаются с 2701.
По четвёртой букве слова делятся на 5 груп по 5 слов. Слова на ШКОЛ начинаются с 2711, и первое из них и будет слово ШКОЛА. ответ: 2711
4. 126 место - первая буква всё ещё А, а на втором месте закончилась А и началась К.
ответ: АКААА