Operating system) — базовый комплекс компьютерных программ, обеспечивающий интерфейс с пользователем, управление аппаратными средствами компьютера, работу с файлами, ввод и вывод данных, а также выполнение прикладных программ и утилит.
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016 const n=5; type Matrix=array[1..n,1..n] of integer;
procedure DummySchool(var a:Matrix); begin Writeln('Ввод элементов матрицы'); for var i:=1 to n do begin Write(n,' элементов строки ',i,': '); for var j:=1 to n do Read(a[i,j]); end; Writeln('Сформирована матрица ',n,'x',n); for var i:=1 to n do begin for var j:=1 to n do Write(a[i,j]:5); Writeln end end;
begin var B:Matrix; DummySchool(B); var sn:=0; var sp:=0; for var i:=1 to n do for var j:=1 to n do if B[i,j]<0 then sn+=B[i,j] else if B[i,j]>0 then sp+=B[i,j]; Writeln('Сумма отрицательных ',sn); Writeln('Сумма положительных ',sp) end.
1. var p:real; i:integer; begin write('цена 1 кг конфет = '); readln(p); for i:=1 to 10 do writeln(i,' кг - ',i*p:5:2); end.
Пример: цена 1 кг конфет = 125.50 1 кг - 125.50 2 кг - 251.00 3 кг - 376.50 4 кг - 502.00 5 кг - 627.50 6 кг - 753.00 7 кг - 878.50 8 кг - 1004.00 9 кг - 1129.50 10 кг - 1255.00
2. var a,b,p,i:integer; begin write('a, b: '); readln(a,b); p:=1; for i:=a to b do p:=p*i; writeln('p = ',p); end.
Пример: a, b: 5 10 p = 151200
3. var n,i:integer; s:real; begin write('n = '); readln(n); s:=0; for i:=1 to n do s:=s+1/i; writeln('s = ',s:8:3); end.
