1. program ex1;
uses crt;
var i, count : integer;
begin
count:=0;
for i:=1 to 9999 do
begin
if (i mod 5 = 0) and (i mod 7 = 0) then
begin
writeln(i);
count:=count+1;
if count=10 then
break;
end;
end;
end.
2. program ex2;
var sum, count, n : integer;
begin
count:=0;
n:=9999;
sum:=0;
while not (n = 0) do
begin
readln(n);
if (not n mod 2 = 0) and (n>0) then
begin
sum:=sum+n;
count:=count+1;
end;
end;
writeln('Ср. арифм. = ', sum/count);
end.
3. program ex1;
var price, i: integer;
begin
write('Введите цену товара за 1 кг. :');
readln(price);
for i:=1 to 15 do
write(i:6, '|');
writeln();
for i:=1 to 15 do
write('-------');
writeln();
for i:=1 to 15 do
write((price/10*i):6,'|');
end.
const
m = 20;
var
arr: array[1..m] of integer;
i, j, k,r: integer;
begin
for i := 1 to m do begin
arr[i] := random(256);
end;
for i := 1 to m-1 do
for j := 1 to m-i do
if arr[j] > arr[j+1] then begin
k := arr[j];
arr[j] := arr[j+1];
arr[j+1] := k
end;
write (arr[20]);
readln
end.
4 в 10 сс равно 4 в 16 сс
Чтобы 25 перевести в 16 сс раздели столбиком 25 на 16, то же самое и с числом 123
Без прелюдий, только основная часть программы:
While (p<>1)
do begin
readln(p);
{a)} if p mod 7 = 0
then a+=1;
{б)} if (p>10) and (p<=100)
then b+=p;
{в}if (p mod 3 =0) and (p mod 5 = 0)
then s+=p;
end;
...
Это для паскаль ABC или ABC.NET
Дано:
v= 32768 бит/с.
t= 48c.
i= 2 байт
k= 128
Найти: n
Определим информационный объем переданного файла I₁=v*t, где v - скорость передачи, t- время передачи
I₁= 32768*48= 1572864 бит
1572864 бит/8= 196608 байт
Определим информационный объем одной страницы: I₂=i*k, где i - количество байт на один символ, k- количество символов на одной странице
I₂=2*128*=256 байт
Тогда разделив общий объем файла на объем одной страницы получим искомое количество страниц:
n=I₁/I₂= 196608/256= 768
Ответ: 768 страниц.