Все категории

2 года назад

У гусей и кроликов вместе N лап (N - четное). Сколько может быть гусей и кроликов (вывести все возможные варианты)?

Знания

Информатика

1 ответ:

Еленка1232 года назад

0 0

Program gt;
var n,i,a:integer;
begin
read(N);
a:=n div 4;
for i:=1 to a do
begin
if((n-i*4)mod 2=0)then writeln((n-i*4),' лап гусей и ',i*4,' лап заёцев');
end;
<span>end.</span>

Читайте также

Составить программу вычисления скорости из км/ч в м/с в программе абс паскаль

madshus1309 [6]

Program n1;
var a: real;
begin
write('введите скорость в км/ч: ');
readln(a);
write('эта скорость в м/с: ',a*5/18);
end.

0 0

4 года назад

Вывести на экран столько элементов ряда Фибоначчи, сколько указал пользователь. Например, если на ввод поступило число 6, то выв

marlin11

Ответ:

var f1,f2,b,i,n: word;

begin

readln(n);

f1 := 1;

f2 := 2;

write(f1,' ',f2,' ');

for i:=3 to n do begin

write(f1+f2, ' ');

b := f1;

f1 := f2;

f2 := b + f1;

end;

writeln;

end.

Объяснение:

0 0

4 года назад

Какие существуют форматы текстовых файлов и чем они отличаются друг от друга

alex2017 [26]

Существуют dxc блакнот power point office word чем отличаются не знаю прости (

0 0

4 года назад

В массиве X(n,m) изменить значения всех положительных элементов,умножив их значения на 5 ,а отрицательные элементы уменьшить вдв

bepo

program znan;

var

x:array [1..1000, 1..1000] of real;

m,n,i,j:LongInt;

begin

ReadLn(n,m);

for i:=1 to n do

for j:=1 to m do

begin

Read(x[i,j]);

if x[I,j]>=0 then

x[I,j]:=x[I,j]*5 else

x[I,j]:=x[I,j]/2;

end;

end.

0 0

4 года назад

Составьте программу и запишите на одном из языков программирования . Заданы три числа A,B,C.Если С-нечетное положительное число

AndreiPtitsa

var a,b,c: integer;

begin

writeln('Введите числа А, В, С');

readln(a,b,c);

if (c mod 2=1) and (c>0) then writeln(a+b) else writeln(b*c);

end.

Язык программирования Pascal

0 0

1 год назад