1.написать программу , которая вычисляет произведение - вопрос №18404341 от Littlebybigheart1111 05.05.2022 09:13

Question

Информатика: 1.написать программу , которая вычисляет произведение цифр к-значного числа. 2. пусть элементами равносторон.треугольника являются : сторона a, высота h, площадь s, вписанная окружность r, описанная окружность r. составить программу , которая по заданному номеру и значению элемента , вычисляла бы значения всех остальных элементов

Littlebybigheart1111 · Answer

Решу только первую задачу.const k=?; {Вместо ? подставить любое значение k} Var x,i,s:integer;Begin write( x= ); readln(x); s:=1; for i:=1 to k do   begin    s:=s*(x mod 10);    x:=x div 10;   end;  writeln( s= ,s);End....