Program program1; var a, b, p: integer; begin write('Введите два числа: '); readln(a, b); p := 0; repeat p := p + a; b := b - 1; until (b = 0); writeln(a, ' * ', b, ' = ', p); end.
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
