Вопрос по информатике:
Напишите программу, которая вводит два целых числа и находит их произведение, не используя операцию умножения. Учтите, что числа могут быть отрицательными (паскаль авс)
Трудности с пониманием предмета? Готовишься к экзаменам, ОГЭ или ЕГЭ?
Воспользуйся формой подбора репетитора и занимайся онлайн. Пробный урок - бесплатно!
- 27.11.2016 07:35
- Информатика
- remove_red_eye 14660
- thumb_up 29
Ответы и объяснения 2
UPD
__________
Var
a,b,s,i:integer;
begin
readln(a,b);
if a b then
for i:=1 to abs(b) do s:=s+a
else for I:=1 to abs(b) do s:=s+a;
if (a<0) and (b<0) then s:=abs(s)
else if b<0 then s:=-s;
writeln(s);
end.
- 28.11.2016 00:42
- thumb_up 11
Var A,B,i,S:integer;
Ch:Char;
Begin
S:=0;
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
if ((A0))or((A>0)and(B<0)) then Ch:='-';
A:=Abs(A);
B:=Abs(B);
For i:= 1 to A do
S:=S+B;
WriteLn(Ch,S)
End.
- 29.11.2016 09:09
- thumb_up 8
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.