Cрочно! паскаль
var m, k, i; integer;
mas; array [1 ... 10] of integer;
begin
mas[1]:=14; mas[2]:=44; mas[3]=72;
mas [4]:=36; mas[5]:=58; mas[6]:=57; mas[7]:=48; mas[8]:=91; mas[9]:=62; mas[10]:=45; k:=0
for i:=1 to 10 do
if (m>5) and (m mod 20) then k:=k+m
else
if m mod 2=0then k:=k+m
end;
write (k)
end.
Ответы (1)
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Cрочно! паскаль var m, k, i; integer; mas; array [1 ... 10] of integer; begin mas[1]:=14; mas[2]:=44; mas[3]=72; mas [4]:=36; mas[5]:=58; ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы
Похожие вопросы по информатике
Var s, i:integer; Mas: array[1 ... 10] of integer; begin Mas[1]:=14; Mas[2]:=10; Mas[3]:=-8; Mas[4]:=6; Mas[5]:=12; Mas[6]:=4; Mas[7]:=-16; Mas[8]:=-7; Mas[9]:=5; Mas[10]:=3; s:=0; for i:=1 to 5 do Mas[2*i]:=-Mas[2*i-1];
Ответы (1)
Определите, что будет напечатано в результате выполнения следующего алгоритма var k, m, i: integer; mas:array[1 ...
Ответы (1)
Program pr; var mas: array[1 ... 10] of integer; i, min, ind: integer; Begin randomize; For i:=1 to 10 do Begin mas[i]:=Random (100) ; write (mas[i], ' ') ; End; writeln () ; min:=mas[1]; For i:=1 to 10 do Begin If (min>mas[i]) then End;
Ответы (1)
Переведите программу в Free Pascal var A: Array [1 ... 100] of integer; size: integer; Even: integer; notEven: integer; begin Write ('Set size A : ') ; Read (size) ; for i:integer : = 1 to size do begin Write ('Set A[', i, ']: ') ; Read (A[i]) ; end;
Ответы (2)
Какое число будет напечатано в результате выполнения программы: var i, k: integer; function f (x: integer) : integer; var m: integer; begin if x < 10 then f : = x else begin m : = f (x div 10) ; if m < x mod 10 then f : = x mod 10 else f : = m; end;
Ответы (1)
Помогите с ответом
Напиши, что умеют делать животные. Прочти предложения. 1. A fish. 2. A horse. 3. A bird. 4. A chimp. 5. A dog. 6. A mouse. 7. A dolphin. 8. A kangaroo. 9. An. elephant. 10. A rabbit.
Нет ответа
Сделайте синтасический разбор предложений: Быстро растаял под лучами яркого солнца снег. Хороши летом глазастые ромашки! Идёшь в тишине, и уха коснётся трубный звук.
Нет ответа
С. Сахарнов "Летучая рыба"
Нет ответа
Объясните, почему уважение американцев к труду можно считать одной из причин подъёма экономики. 19 Век
Нет ответа
Прочитайте. определите слово по его лексическому значению неб льшой сочный плод курстарников и трав. () тот, кто учится в школе () первый месец зимы () иструмент для копания земли () хлебный злак () часть горизонта, где восходит солнце () вставьте
Нет ответа