4 года назад

есть девети литровое и 4 литровое ведро набери 6 литров

Знания

Информатика

1 ответ:

ОксанааД4 года назад

0 0

налить в 9-литровое 9 литров

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

Найти номер первого, меньшего нуля, тангенса, среди tg(r), ..., tg2, tg1.через программу Паскаля

Амелия555

Var r, i: integer;
begin
write('r = ');
readln(r);
for i := r downto 1 do
if Tan(i) < 0 then
break;
write(i);
<span>end.</span>

0 0

4 года назад

Программа на Pascal: Вводятся целые числа. Признак конца - ввод числа 0. Определить, сколько двузначных четных чисел, оканчивающ

Виталий Б

Var
   A,B,i:integer;
   k:byte;
Begin
i:=0;
k:=0;
Repeat
Read(A);
i:=i+1;
if (i>2)and(i<5) then
   Begin
   B:=Abs(A);
   if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;
   End;
Until (A = 0)or(i>=5);
if A<>0 then
   Repeat
   Read(A);
   Until A = 0;
WriteLn(k)
End.

0 0

4 года назад

Написать прогу на пвскале6. Дано натуральное число N (N > 9). Определить количество нулей, идущих подряд в младших разрядах д

kolibri22 [7]

var N,i:integer;
begin
readln(n);
while (n mod 10=0) do begin inc(i); n:=n div 10; end;
writeln(i);
end.

0 0

4 года назад

Помогите написать на ПаскалеДано N пицц Пиццу резать нельзя ! Если распределить пиццы поровну среди М друзей , то по скольку пиц

Tomlinson [47]

До нельзя просто. div находит целое число от деления, mod — остаток. Путём деления и находим, кто сколько пицц скушает =)

program Pizza2friends;

var N,M:integer;

begin

writeln('Введите количество пицц');
read(N);
writeln('Введите количество друзей');
read(M);

if N > M then
writeln('У каждого друга будет ',N div M,' пицц. Останется ',N mod M,' ничьих пицц.')

else writeln('Пицц должно быть больше, чем друзей');

end.

0 0

4 года назад

Написать программу в паскале: определить, четное число или нечетное, если четное - разделить на два и вывести результат на экран

mykola13

Var a : integer;
begin
writeln('Введите число');
read(a);
if (a mod 2 = 0) then a:= a div 2 else a:=a;
writeln(a);
end.

0 0

4 года назад