найти сумму всех нечётных трёхзначных чисел. 2. дано натуральное число n. сколько цифр в числе n? 3. старинная . сколько можно купить быков, коров и телят, если бык стоит 10 рублей, корова – 5 рублей, телёнок – полтинник (0,5 рубля), при условии, что на 100 рублей надо купить 100 голов скота.

Эвелишка11 Эвелишка11    1   05.06.2019 21:40    0

Ответы
hopelless2124 hopelless2124  06.07.2020 09:00
Var i,s:integer;
begin
i:=101;
while i<1000 do
  begin
  s:=s+i;
  i:=i+2
  end;
writeln('ответ: ',s)
end.

var n,x:integer;
begin
write('Введите число: '); 
readln(n);
while n>0 do
   begin
   n:=n div 10;
   x:=x+1
   end;
writeln('Цифр: ',x)
end.

var x,y,z:integer;
begin
for x:=0 to 100 do
   for y:=0 to 100 do
     for z:=0 to 100 do
       if (x+y+z=100) and (10*x+5*y+0.5*z=100) then
             writeln('быков:',x,' коров:',y,' телят:',z);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика