Паскаль. В одновременном массиве найти произведение ненулевых элементов.

Знания

Информатика

1 ответ:

Delete1114 года назад

0 0

Program proizv;
var i, n, p:integer; a:array[1..10] of integer;
begin
p:=1;
writeln('Введите кол-во элементов');
readln(n);
for i:=1 to n do
begin
writeln('Введите число');
readln(a[i]);
If a[i]<>0 then
p:=p*a[i];
end;
writeln('p=',p);
end.

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

Определить количество цифр в числе введенном с клавиатуры Visual C++

AntuanZZ [14]

#include <iostream>
#include <math.h>
using namespace std;
int main()
{
 int a,k(0);
 cout << "a="; cin >> a;
 while (a > 0)
 {
 a /= 10;
 k++;
 }
 cout << "Otvet: " << k << endl;
 return 0;
}

0 0

4 года назад

В каких компьютерах не используются мультимедийные технологии?

Василий Кутвинов [1]

те которые занимаются трофическом построениями

0 0

4 года назад

Даны 2 слова. Определить сколько начальных букв первого слова совпадает с начальными буквами второго слова

Огород [21]

1) uses crt;
2) var
3) s1,s2:string;
4) i,k:integer;
5) begin
6) k:=0;
7) writeln('pervoe slovo?');
8) readln(s1);
9) writeln('vtoroe slovo?');
10) readln(s2);
11) for i:=1 to length(s1) do begin
12) if (s1[i]=s2[i]) and (k=i-1) then
13) k:=k+1;
14) end;
15)writeln(k);
16)End.

0 0

4 года назад

Помогите с информатикой Очень срочно( Упр 1- а,б;Упр 2- а,б.

Евгений В К [7]

№1
а)1100;
б)10011;
в)11010;
г)10001;
д)11001;
е)110,000;?
ж)110,100;
з)?
и?

0 0

4 года назад

Прочитать ещё 2 ответа

Помогите написать программу на языке паскаль 1. вывести все числа от 1 до 10 с помощью while; 2. вывести все числа от 1 до 10 с

dbrf1234567891234... [49]

Var
a,b:integer;
begin
a:=0;
b:=0;
//Вывод через while
 while a<>10 do
 begin
inc(a);
 write(a,' ');
end;
writeln('');
 //Вывод через repeat
repeat
 begin
 inc(b);
 write(b,' ');
 end;
until b=10;
end.

0 0

3 года назад