Его ответы
-
Вводятся числа a и b. Найти количество чисел в диапазоне [a;b], у которых последняя цифра равна 7.
Dezigo, Компьютеры, Интернет, 17 лет
Просмотров: 380 Ответов: 6
KoJIbko (36), 2 (271)
var a,b,i,atvet:integer;
//vvodim 4isla
a:=strtoint(edit1.text);
b:=strtoint(edit2.text);
//diapazon
diapazon:array[a..b] of integer;
//pods4et
i:=0;
atvet:=0;
repeat
if diapazon<>7 then
inc(atvet);
inc(i);
until (diapazon>7);
//vivod atveta
label1.caption:=inttostr(atvet);
//vozmozno asibajusj pustj ktoto umnij papravit :D
