Вычислить произведение произвольных пяти чисел, вводимых с клавиатуры

Знания

Информатика

2 ответа:

сергей199719962 года назад

0 0

Program vhh;
var a1,a2,a3,a4,a5,p:integer;
begin
writeln('vvedite a1,a2,a3,a4,a5');
readln(a1,a2,a3,a4,a5);
p:=a1*a2*a3*a4*a5;
writeln('p=',p);
end.

Svetanyka2 года назад

0 0

1*2*3*4*5=120........

Читайте также

Дано трехзначное число N. Проверить, будет ли сумма его цифр четным числом. Кто может составьте блок схему алгоритма и программу

Дэля

//"Школьный" вариант, блок-схема во вложении
//Pascal ABC.NET v3.0 сборка 1111

Var
s,n,i:integer;
begin
readln(n);
s:=0;
for i:=1 to 3 do
begin;
s:=s+n mod 10;
n:=n div 10;
end;
if s mod 2=0 then writeln('Yes') else writeln('No');
<span>end.

Пример ввода:
123
Пример вывода:
Yes</span>

0 0

4 года назад

Пользователь находился в каталоге расписание сначала он поднялся на 1 вверх затем спустился на 1 вниз затем спустился еёраз на 1

ДенБеп

Ответ: C:\учёба\математика

0 0

4 года назад

Определите значение целочисленных переменных x и y после выполнения фрагмента алгоритма.x:=336y:=8х:=x div yy:=x mod yПеременная

Olivika

Mod это остаток от деления
div целая часть от деления
x =42
y=0

0 0

4 года назад

Дано {1/1, 2/1, 3/2, 5/3, 8/5, 13/8...} Нужно вывести первые n членов последовательности и посчитать k член на паскале

Arsik

{общий член последовательности можно задать формулой Sn=((An-1)+(Bn-1))/(An-1) где A- числитель, В - знаменатель }

const n=10;
var A,B,C,i,k: integer;
begin
A:=1; B:=1;
{ вывод последовательности на экран }
for i:=2 to n do
begin
C:=A; A:=A+B; B:=C;
writeln(i,' -> ',A,'/',B);
   end;
{ подсчет k - го члена }
   k:=20; A:=1; B:=1;
   for i:=2 to k do
begin
      C:=A; A:=A+B; B:=C;
end;
  writeln(k,' - ый элемент = ',A,'/',B);
<span>end.

</span>

0 0

4 года назад

СРОЧНО ! ОТМЕЧУ КАК ЛУДШОГО ! Який обєкт в середовищі тектового процесора має такі параметри форматування : а)абзац б)сторінка

veonid [4.7K]

Абзац!!!!!!!!!!!!!!!!

0 0

4 года назад