Vara,b,z,x:integer; begin writeln('Введите первое число'); readln(a); writeln('Введите второе число'); readln(b); writeln('Введите третье число равное первому'); readln(z); a:=1; while a<=z do begin x:=x+b; a:=a+1; end; writeln('произведение равно = ',x) end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
