4 года назад

С клавиатуры вводятся 7 чисел . Найти произведение отрицательных чисел делящихся на 3 . помогите срочно надо

Знания

Информатика

2 ответа:

Veslo [13]4 года назад

0 0

Prorgam zadacha;

Const n=7;

Var a:array [1..100] of integer;

i,p:integer;

Begin

p:=1;

For i:=1 to n do begin

Readln(a[i]);

End;

For i:=1 to n do begin

If (a[i]<0) then begin

If (a[i] mod 3=0) then p:=p*a[i];

end;

Writeln(p);

end.

nasta214 года назад

0 0

var s,i,k:integer;

begin

s:=1;

for k:=1 to 7 do begin

readln(i);

if (i mod 3=0) and (i<0) then s:=s*i;

end;

writeln(s);

end.

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

Что вернёт функция g(), если её вызвать в C++? int h(int *q, int *p) { *p += 1; *q += 1; return *p + *q; } int g() { int a = 2,

fmvgpz2 [2]

Эта функция выведет 20.
Сначала мы передаём 2 в функцию h как указатель.
Увеличиваем 2 на один, а потом ещё на один, у нас выходит 4.
Возвращаем 4+4=8.
Потом мы передаём 4 в функция h как указатель.
Увеличиваем 4 на один, а потом ещё на один, у нас выходит 6.
6+6=12.
Ну а потом мы возвращаем сумму наших двоих функций h.
12+8 = 20.

0 0

3 года назад

Помогите с заданием кит-10-11класс

Полина1411

2,3,5 думаю что будет правильно

0 0

3 года назад

(Pascal ABC Net)Найти сумму максимального и минимального из 12 введенных чисел. Вывести сами значения и их индексы.

Cecil [39]

Раз надо найти индексы, значит это массив
//Pascal
const n = 12;
var a:array[1..n] of real;
min,max:real;
imin,imax,i:integer;
begin
max:=-999999;
min:=999999;
for i:=1 to n do begin
   readln(a[i]);
   if a[i]<min then begin
   min:=a[i]; imin:=i;
   if a[i]>max then begin
   max:=a[i]; imax:=i;
end;

writeln ('Максимальный ',max,'индекс',imax);
writeln ('Минимальный',min,'индекс',imin);
writeln ('Сумма', max+min);
end.

0 0

4 года назад

Помогите пожалуйста это очень срочно Заранее спасибо

Квятковская Людмила

как то так F:\SCHOOL\a1.doc

0 0

4 года назад

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

Решите пожалуйста. По фотографии

Роман258

Вот так как то, если неправильно, напишите в комментах

program nomer;
var a,b,c:integer;
begin
writeln('Введите а,b,c');
readln(a,b,c);
if a>b then
begin
if b>c then writeln (c,b,a)
    else
      if a>c then writeln (b,c,a)
      else writeln (b,a,c);
end
else
begin
if a>c then writeln(c,a,b)
else
    if b>c then writeln (a,c,b)
    else write(a,b,c)
end;
end.

0 0

4 года назад