Написать программу перемножающую целые числа без использования операции «*». паскаль абс
5-9 класс
|
P.S. Благодарность и лучший ответ не помешает.
var a, b, c, i:integer;
begin
read (a,b);
c:=0;
for i:=1 to b do
c:=c+a;
write (c,' ');
end.
var
a,b,n,i:integer;
begin
read(a,b);
for i:=1 to b do
n:=n+a;
writeln(n);
end.
Надеюсь на Лучший ответ ;)
Другие вопросы из категории
2)Определите значение переменной P после выполнения следующей программы:
Var I,P:integer;
Begin
P:=1;
For I:=1 to 4 do P:=P*i;
Writeln('P=',P);
End
Читайте также
написал программу неправильно. Ниже приведён фрагмент его программы, в котором содержится пять ошибок:
k:=1;
f:=0;
while k<n do
f:=f*k;
k:=k+1
2.Дано целое число N.Написать программу ,заменяющую его нулём ,если больше или равно нулю,и увеличивающая его в 2 раза ,если число меньше нуля.
3 .Дано целые числа a и b .Написать программу , которая выводит сначала большее число ,затем меньшее.
4.Даны числа a,b,c.Написать программу ,выводящую их в возрастающем порядке.
ПЛИЗ ПОМОГИТЕ
арифметического полученных значений.
2. За весну Обломов похудел на p1 кг, за лето поправился на p2 кг, за осень похудел на p3 кг, за зиму поправился на p4 кг. Написать программу, определяющую, похудел или поправился за год Обломов.
3. Написать программу, которая определяет, является ли целое число четным двузначным числом.
4. Даны коэффициенты квадратного уравнения. Написать программу, определяющую его корни
результат
2.дано целое число.напишите,программу которая выводит на экран последнюю цифру данного числа,затем возводит ее в квадрат и выводит на экран монитора результат
2)Составьте программу,которая заполняет массив e[1..8] случайными целыми числами в диапазоне от 1 до 20 и находит сумму элементов с нечётными значениями и количество элементов кратных 3.
3)Составьте программу,которая заполняет массив e[1..14] случайными целыми числами в диапазоне от -10 до 10,затем изменяет знак положительных элементов на противоположный,а отрицательные элементы заменяет на 0.Спасибо.