Составить программу информатика 9 класс заранее спасибо

Знания

Информатика

1 ответ:

Gem4 года назад

0 0

import Foundation

func makeList(_ n: Int) -> [Int] {

return (0..<n).map{ _ in Int.random(in: 1 ... 100) }

}

let list = makeList(15) // [9, 30, 66, 2, 29, 16, 92, 84, 90, 6, 43, 20, 17, 31, 64]

var summ = 0

for number in list {

summ += number

}

print(summ) // 599

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

определить закономерность в расположении чисел и продолжи ряд. 1,3,6,4,_ _ _ _. Объяснить закономерность.

Тимаев

я думаю так:

0 0

4 года назад

Запишите полный путь к файлу readme.txt, если известно, что он хранится в папке HELP, вложенной в папку HOME, находящейся на дис

ПЛИЗ

путь к файлу: D:/HOME/HELP/readme.txt

0 0

4 года назад

Пользователь вводит 2 числа, перемножить сумму, найти разность произведения и их суммы:)

земляк

Program job_1;
var
a,b,s,d, : integer;
begin
writeln('введите два числа ');
readln(a,b);
s:=a*b;
writeln('После умножение',s);
d:=a-b;
writeln('Вычитание',d);
end.
НА ПАСКАЛЕ

0 0

4 года назад

Составить алгоритм подсчета количества часов,минут и секунд в N сутках Срочноооо! Прошу вас

АндрейТерёшин

Вот держи твоя программа

0 0

1 год назад

Задача по информатике. Pascal или Delphi с подробным решением и объяснениями! Банкомат В некотором государстве в обращении нахо

Kamchatkas

Var v:array [0..100000] of integer; a:array [0..100,0..100000] of integer; m,p,k,w:integer;
procedure step(z,ma:integer);beginif z>0 then if a[z,ma]<>a[z-1,ma] then if a[z-1,ma]<a[z-1,ma-v[z]]+v[z] then begin step(z-1,ma-v[z]); write(v[z],' '); end else step(z-1,ma) else step(z-1,ma); end;

beginread(k);for p:=1 to k do begin read(v[p]); end;read(w);for p:=1 to k do begin for m:=1 to w do begin if m-v[p]>=0 then a[p,m]:=(max(a[p-1,m-v[p]]+v[p],a[p-1,m])) else a[p,m]:=a[p-1,m]; end; end;if a[k,w]=w then step(k,w) else writeln('No solution');end.

0 0

4 года назад