Uses crt;
var a:integer;
begin
a:=10000;
repeat
if (a mod 133=125) and (a mod 134=111) then writeln(a);
a:=a+1;
until a>99999;
end.
Ответ:
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
Объяснение
[Как ухаживать за домашними кошками -крупные -покупка -продажа]
Це значить, що ми маємо адресу клітинки, яка стоїть на перетину 258 колонки і 2014 рядка. В старих Excel кількість колонок обмежувалась 256 колонками, так що це має смисл тільки в нових модифікаціях.
var
a,k :integer;
begin
repeat
begin
writeln ('введи число');
read (a);
if (a mod 2 <>0) then k:=k+1;
end;
until a=0;
writeln ('количество нечетных чисел k=',k);
end.
Var b, k, t: integer;
begin
for b:=0 to 10 do
for k:=0 to 20 do
begin
t:=100-(b+k);
if(20*b+10*k+t=200) then
writeln('Быков ' ,b,' коров ' , k,' телят ' ,t);
end;
end.
Результат:
Быков 1 коров 9 телят 90