Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var z,d,k : integer;
begin
z: =2; d: =7; k: =0;
while (d> =z) do
d: =d-z;
k: =k+1
end;
writeln(d,' ',k);
readln
end.
а)сумм(a5: b7)
б)срзнач(c4: c7)
1)
var
i,k: integer;
a: array [1..14] of integer;
k: =0;
for i: =1 to 14 do
a[i]: =random(46)-15;
write(a[i]: 3);
if a[i] mod 2=0 then k: =i;
if k> 0 then
for i: =k to 13 do a[i]: =a[i]+1;
a[14]: =0;
writeln;
for i: =1 to 14 do write(a[i]: 3);
2)
for i: =1 to 7 do
k: =a[i];
a[i]: =a[i+7];
a[i+7]: =k;
Популярные вопросы