Помогите составить две задачи с div и mod. Относительно легкие

Знания

Информатика

1 ответ:

ik77091 год назад

0 0

var x, L, M: integer;

begin

readln(x);

L := 0;

M := 0;

while x > 0 do

begin

L := L + 1;

if x mod 2 = 0 then

M := M + (x mod 10) div 2;

x := x div 10;

end;

writeln(L);

writeln(M);

end.

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

Назови имя объекта ,изображённого на рисунке, и напиши это слово. Можно ли слово, которым обозначено имя этого объекта, назвать

Оксана9567

Это свиток, а на языке информатики к сожалению не знаю :с

0 0

4 года назад

Прочитать ещё 2 ответа

На рисунке приведена весовая матрица графа, в которой веса обозначают расстояния между соседними пунктами. Определите длину марш

Аrmida [7]

A-B=5
B-D=5
D-E=3
В сумме=13

0 0

4 года назад

Боря Витя Гриша и Егор встретились На всероссийской олимпиаде по информатике ребята приехали из разных ! Городов с Москвы Омска

Erik11

Боря из Омска, гриша из екатеринбурга, егор из казани, витя из твери

0 0

4 года назад

Даны 3 числа a,b и c .Составьте программу которая проверяет выполнение условия : a

qewxy [24]

Program yslovie;
var a,b,c:real;
begin
Writeln('Введите а');Readln(a);
Writeln('Введите b');Readln(b);
Writeln('Введите c');Readln(c);
if (b>a) and (b<c) then Writeln('Условие выполняется, ',a,'<',b,'<',c)
else Writeln('Условие не выполняется')
end.

0 0

2 года назад

Нужно составить программу, помогите ( Паскаль ABC)

Gobielle [52]

Из мобильного приложения приведенная ниже формула не будет видна, смотреть в браузере!!!
$\displaystyle P= \frac{(x-1)(x-3)(x-5)...(x-63)}{(x-2)(x-4)(x-6)...(x-64)}=\prod_{i=1}^{32} \frac{x-(2i-1)}{x-2i} = \\ \prod_{i=1}^{32} \left(1+\frac{1}{x-2i}\right)$

var
i:integer;
x,p:real;
begin
Write('x='); Read(x);
p:=1;
for i:=1 to 32 do p:=p*(1+1/(x-2*i));
Writeln('P=',p)
end.

Пример
x=1.36
P=-0.0783922330060185

0 0

4 года назад