1.
var k, l, m, n: integer;
begin
readln(k,l,m,n);
if (k+l+m+n mod 2 = 0) then
writeln('поля одного цвета')
else
writeln('поля разных цветов')
end.
2.
uses crt; {В зависимости от компилятора эта строчка может оказаться лишней}
var question, answer: integer;
begin
randomize();
question := random(100);
writeln(question);
readln(answer);
if (question+answer=100) then
writeln('Not bad')
else
writeln('Oops. Right answer is ', 100-question)
<span>end.</span>
Переведём 28 из 6-ой с.с. в 10-ую:
расставляем 0 под 8, а 2 под 1,
1*6^1+8*6^0=6+8=14.
Значит, получается, что наим ближайшее целое число 14-1=13.
Но с ответом я НЕ 100% уверена.. скорей всего будет 13, но может 14..
Var m,d1,d2,dn,k:integer;
begin
write('Вес Винни-Пуха (г): ');
readln(m);
d1:=100; d2:=100;
dn:=100; k:=2;
while dn<=m do
begin
dn:=d1+d2;
d1:=d2;
d2:=dn;
k:=k+1;
end;
writeln('k = ',k,' dn = ',dn);
end.
Пример:
Вес Винни-Пуха (г): 900
k = 7 dn = 1300
В компьютерной системе есть возможность подключать новые устройства ввода, вывода,память компьютера, заменять старые устройства на современные, неисправные - на работающие