Герберт
5 год назад
Как сделать сумму чисел меньше 10,причем числа находятся в массиве в интервале 1..1000 (Паскаль)
ОТВЕТЫ
Мариела
Oct 24, 2020
Вот:
uses Crt;var A, B, C; integer;beginClrScr;while (A > -10) and (A < 10) dowhile (B > -10) and (B < 10) dobeginwrite(' Ввести два целых числа: ');readln(A, B);C:= A * B;writeln(' Произведение равно: ' ,C);end;writeln(' Программа завершена.');readlnend.
На выходе:
uses Crt;var A, B, C; integer;beginClrScr;while (A > -10) and (A < 10) dowhile (B > -10) and (B < 10) dobeginwrite(' Ввести два целых числа: ');readln(A, B);C:= A * B;writeln(' Произведение равно: ' ,C);end;writeln(' Программа завершена.');readlnend.
uses Crt;var A, B, C; integer;beginClrScr;while (A > -10) and (A < 10) dowhile (B > -10) and (B < 10) dobeginwrite(' Ввести два целых числа: ');readln(A, B);C:= A * B;writeln(' Произведение равно: ' ,C);end;writeln(' Программа завершена.');readlnend.
На выходе:
uses Crt;var A, B, C; integer;beginClrScr;while (A > -10) and (A < 10) dowhile (B > -10) and (B < 10) dobeginwrite(' Ввести два целых числа: ');readln(A, B);C:= A * B;writeln(' Произведение равно: ' ,C);end;writeln(' Программа завершена.');readlnend.
852
Смежные вопросы:
