var
n, i, s: <em>integer</em>;
begin
readln(n);
i := 100;
while (i <= 999) do
begin
if (i mod 10 + i div 10 mod 10 + i div 100 = n) then
inc(s);
i := i + 1;
end;
writeln(s);
s := 0;
i := 100;
repeat
if (i mod 10 + i div 10 mod 10 + i div 100 = n) then
inc(s);
i := i + 1;
until (i = 999);
writeln(s);
end.
Ответ:
1 Гбайт = 1024 Мбайта. Переведем Гбайты в Мбайты и разделим на объем одного CD диска.
Для этого выполним вычисления: 320 * 1024 / 700 = 327680 / 700 = 468,11 дисков.
Так как количество дисков должно быть целым числом, округлим результат до большего целого – 469 дисков.
Умножим получившееся число на вес одного диска. Получим: 469 * 15 = 7035 г.
Ответ: 7035 г.
Var a:real;
begin
readln(a);
if(a mod 2 = 0) writeln(a+30) else writeln(a*50);
end.
Ответ:
Прикладные программы - это программы, которые созданы для определённых задач.
Операционная система - совокупность программ, обеспечивающих управление аппаратными средствами компьютера.
Системы программирования - это система для разработки каких либо программ на определённом языке, например Pascal, C++, Python.
Программное обеспечение — программа или несколько программ, используемых для управления компьютером. Хранится во внешней памяти компьютера.
Const
n=10;
var
i,im:integer;
a:array[1..10] of integer;
begin
Randomize;
im:=1;
for i:=1 to n do begin
a[i]:=Random(21)+1;
Write(a[i],' ');
if a[i]<a[im] then im:=i
end;
Writeln;
Writeln('Минимальный элемент a[',im,']=',a[im])
end.
<u>Пример</u>
20 13 16 7 9 4 21 13 2 10
Минимальный элемент a[9]=2