)заранее напишите программу, которая решает следующую оплата интернета в школе состоит из двух частей: 100 долларов в месяц за доступ и 5 долларов в месяц за поддержку школьного сайта. платеж можно делать независимо за любое количество месяцев за доступ и за поддержку сайта. напишите программу, которая позволяла бы вводить отдельно количество оплачиваемых месяцев для доступа и поддержки и выводила бы сумму оплаты.

Var m1,m2,s: integer; begin write('количество месяцев за доступ к интернет: '); readln(m1); write('количество месяцев за поддержку школьного сайта: '); readln(m2); s: =m1*100+m2*5; writeln ('сумма оплаты = ',s); end. пример: количество месяцев за доступ к интернет: 5 количество месяцев за поддержку школьного сайта: 4 сумма оплаты = 520

Типа так? ? program z1; var m: integer; d,p: real; begin writeln('введите кол-во месяцев, за которые будет произведена оплата: '); readln(m); d: =m*100; p: =5*m; writeln (d,' долларов - за доступ и ',p,' долларов - за поддержку сайта'); end.

1) элемент с номером k заменяется на 2

var

a: array [1..20] of integer;

i,n,k: integer;

begin

readln(n);

for i: =1 to n do

begin

a[i]: =random(50);

write(a[i]: 3);

end;

writeln;

readln(k);

a[k]: =2;

for i: =1 to n do

write(a[i]: 3);

end.

2) элемент вставляется в массив остальные элементы сдвигаются вправо

var a: array [1..20] of integer; i, n, k: integer;

begin readln(n); for i : = 1 to n do begin a[i] : = random(50); write(a[i]: 3); end; writeln; readln(k); for i: =n+1 downto k do a[i]: =a[i-1]; a[k] : = 2; for i : = 1 to n+1 do write(a[i]: 3); end.

1)f0=(15*16^1)+(0*16^0)=240 (10 c.c), делим столбиком число 240 на 2 (и так далее продолжаем делить на 2 все частные числа) и записываем остатки с конца и получаем число 11110000(2 c.c)

2)1d4=(1*16^2)+(13*16^1)+(4*16^0)=256+208+4=468 (10 c.c), делим столбиком число 468 на 2 (и так далее продолжаем делить на 2 все частные числа)и записываем остатки с конца и получаем число 111010100 (2 c.c).