Var i: integer;
begin
for i := 13 to 60 do
if(i mod 3 = 0) then write(i:3);
<span>end.</span>
//Pascal ABC.NET Версия 2.2 Сборка 790
var a,b:string;
i,j,k:integer;
begin;
readln(a);
readln(b);
for i:=1 to length(a) do
begin;
for j:=1 to length(b) do
begin;
if a[i]=b[j] then
begin;
delete(b,j,1);
inc(k);
end;
end;
end;
if k=length(a) then writeln('Да') else writeln('Нет');
end.
Пример ввода:
abc
cba
Пример вывода:
Да
Для кодирования одного из 32 цветов требуется log(2)32 = 5 бит (2^5=32).
Высота изображения = 9*1600/16 = 900
Объем памяти = 1600*900*5 бит = 1600*900*5 / (8*1024) Кбайт ≈ 879 Кбайт.
Ответ:
2-2b/b-2
Объяснение:
b+2/b-2-4b/b-2=b+2-4b+b/b-2=2-2b/b-2
program raf105;
var
a,b,c,k: real;
begin
write('a = ');
readln(a);
write('b = ');
readln(b);
write('c = ');
readln(c);
if a*b*c <> 0 then k:= sqrt(a*b*c)
else k:= (a+b+c) / 2;
writeln('k = ',k);
end.
<h3>PascalABC</h3>