10.03.2015, 23:36 | #1 (ссылка) |
Новичок
Регистрация: 14.02.2015
Сообщений: 28
Репутация: 0
|
Ввести два числа и найти произведение их не используя умножение.Доработайте программу
Пишу программу на паскале.Мне нужно с функцией while.Не как не могу понять с чему мне сравнивать?
program n555; var s,b,a:integer; begin Writeln('Введите два целых числа через пробел'); readln(a,b); s:=0; while ????? do begin s:=s+a; end; writeln (s); end. |
16.03.2015, 16:11 | #3 (ссылка) |
Новичок
Регистрация: 21.11.2009
Сообщений: 486
Репутация: 47
|
Stop, можно попробовать так:
Код:
var a,b,s,i: integer; begin Writeln('a:'); Readln(a); Writeln('b:'); Readln(b); s:=0; i:=0; while i<>abs(b) do begin s:=s+a; inc(i); end; if b<0 then s:=-s; Writeln(s); Readln; end. |
Ads | |
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1) | |
Опции темы | |
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите найти программу | anatolik1981 | Графика | 5 | 02.04.2012 14:44 |
помогите найти программу | mike03 | Утилиты | 5 | 06.04.2011 00:07 |
Помогите найти программу!!! | Zhulykpaeva | Офис | 8 | 22.12.2009 00:19 |
помогите найти программу ^^ | pania333 | Утилиты | 16 | 15.11.2009 19:33 |