Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
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.
1 simvol zanimaet 1 bait(tak kak imeem tekst);
tekst shpargalki sostavliaet 50*50=2500 simvolov-2500 bait.
da + eshe 0,3*2500=750.
vsego 2500+750=3250 bait.
var
a: array[1..5]of integer;
i: integer;
for i: =1 to 5 do read(a[i]);
for i: =1 to 5 do write(a[i],' ');
writeln;
for i: =1 to 5 do if a[i]> =1024 then writeln(a[i] div 1024);
если текст распознан, то да. т. е. наобходима программа разспознования fine reader
Популярные вопросы