Var n,a,m,s,q:integer;
begin
read(n,a);
q:=1;
while n>0 do begin
s:=n mod 10;
if s<>a then begin
m:=m+s*q;
q:=q*10;
end;
n:=n div 10;
end;
writeln(m);
end.
Var s:string;
k,i:integer;
begin
writeln('vvedite slovo');
readln(s);
for i := 1 to length(s) do
if (s[i]='y') and (i mod 2=0)
then inc(k);
writeln ('k=',k);
readln ;
<span>end.</span>
Ответ:
F2
Объяснение:
21=3*7 ячеек -это таблица 3 столбца (F,G,H) * 7 строк (2-8), значит левый верхний угол F2
Ответ:
program a;
var q,w:integer;
begin
write(' Cколько раз повторить?');
readln(q);
for w:=1 to q do
writeln('Привет!');
end.
Объяснение:
В 1 байте 8 бит. 12582912:8=1572864байт.
В 1 Кбайте (в традиционном для информатики смысле) 1024 байта. 1572864:1024=1536 Кбайт.
В 1 Мбайте 1024 Кбайт. 1536:1024=1,5 Мбайт.