var
I,U,R: real;
begin
write('Введите значение напряжения (U, В) = '); readln(U);
write('Введите значение сопротивления (R, Ом) = '); readln(R);
I:=U/R;
write('Сила тока (I, A) = ', I);
end.
10011010, если расписывать, то просто 154 делить на два в столбик, и всё остатки должны сойтись с моим полученным числом, удачи!
1)18<A
2)18<=A
3)A<18
4)A<=18
5)A mod 4 = 0
6)A<=55
Блок-схема решения задачи 2 - в прилагаемом файле.