На 1 пункт:
program mueta;
uses crt;
const n=(любому числу, например 3);
var k:array[1..n]of integer;
s:array[1..n]of integer;
begin
clrscr;
for i:=1 to n do begin
writeln('введите эл-ты массива s[i]=');
readln(s[i]);
end;
for i:=1 to n do begin
if s[i]>0
then
writeln('s[i] положительное число', s[i]);
ENd.
2)На второй тоже самое только нужно заменить массив на(k) условие нужно поменять на s[i]mod 2=0

0 0

4 года назад

ПОМИОГИТЕ ПОЖАЛУЙСТА!!!! УМОЛЯЮ!!ПРОШУУ! ОЧЕНЬ НАДО!!!!!

сергей Храмцов [7]

1) sqrt(2*a*c -sqr(b)/5*b
2) x=z mod y . 15 mod 14=1.
y=1,x=1,z=1.
Возможно,это неправильно,но хоть что-то)

0 0

4 года назад

Расчет оплаты за электроэнергию В Украине за потребление электроэнергии определен следующий порядок оплаты в зависимости от потр

Ира 1982

# Код на ruby 2.2.3p173
def zadanie(amount_spent, reduction)
   amount = [600, 100, 0]
   tariff = [1.479, 0.789, 0.456]

   amount_spent = amount_spent - reduction
   sum = 0

   for i in 0...amount.size
       if amount_spent > amount[i]
           sum += (amount_spent - amount[i]) * tariff[i]
           amount_spent = amount[i]
       end
   end
   return sum
end

# # # Примеры применения
p zadanie(700, 30)
p zadanie(150, 0)

0 0

4 года назад