1. На экран выведется число 17
2. На экран выведется число 25
3. На экран выведется число 27
19 из 10 в 2
делим 19 на 2, записываем остатки, получившиеся значения записываем в обратном порядке
19/2=9 ост 1
9/2=4 ост 1
4/2=2 ост 0
2/2=1 ост 0
19 из 10 в 8
аналогично, но делим на 8
19/8=2 ост 3
19 из 10 в 16
19/16=1 ост 3
561 из 10 в 2
561/2=280 ост 1
280/2=140 ост 0
140/2=70 ост 0
70/2=35 ост 0
35/2=17 ост 1
17/2=8 ост 1
8/2=4 ост 0
4/2=2 ост 0
2/2=1 ост 0
561 из 10 в 8
561/8=70 ост 1
70/8=8 ост 6
8/8=1 ост 0
561 из 10 в 16
561/16=35 ост 1
35/16=2 ост 3
Var s:string;
begin
readln(s);
writeln(pos(' ',s));
end.
Тестовое решение:
Всем привет!
5
1)))))))))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 2 = 0
then
Writeln('Число чётное')
else
Writeln('Число не чётное');
readln;
end.
2))))))))))))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 3 = 0
then
Writeln('Число делится на 3')
else
Writeln('Число не делится на 3');
readln;
end.
3))))))
program z;
var
i: array[1..6] of byte;
x:byte;
begin
for x:=1 to 6 do
begin
Writeln('Введите ', x,' цифру из 6 ');
Read(i[x]);
end;
if (i[1]+i[2]) = (i[4]+i[5]+i[6])
then
Writeln('Билет счастливый')
else
Writeln('Билет не счастливый');
Readln;
end.
5)))
program z;
var
i : integer;
begin
Writeln('Введите число'); Readln(i);
if i mod 6 = 0
then
Writeln('Число делится на 6')
else
Writeln('Число не делится на 6');
readln;
end.
6)))))
program z;
var
a,b:integer;
begin
Writeln('Введите число A'); Readln(a);
Writeln('Введите число B'); Readln(b);
if b mod a = 0
then Writeln('Число А делится нацело на число В')
else Writeln('Число А не делится нацело на число B');
Readln;
end.